macro confronta orario A1 del foglio 1 e incolla nella giusta posizione nel foglio 2

Option Explicit

Sub Aggiorna()
Application.ScreenUpdating = False
Dim Ulc As Long, x As Long
    
    Sheets("Foglio2").Select
    With Worksheets("Foglio1")
    Ulc = Cells(11, Columns.Count).End(xlToLeft).Column
        Range(Cells(13, 6), Cells(13, Ulc)).ClearContents
            For x = 6 To Ulc
                If Cells(11, x).Value = .Cells(1, 1).Value Then
                    Cells(13, x).Value = .Cells(1, 2).Value
                        Exit For
                End If
            Next x
    End With
Application.ScreenUpdating = True
    Cells(13, x).Select
End Sub