cerca date e nei fogli 2 -3 -4 -5 -6 e inserisci in tabella nel foglio 1

Sub CercaData()
Dim mData As Date, mOra As Date, ur As Long, j As Integer, r As Long
Dim lettera As String, mPerc As Double, foglio As String, col As Integer
Dim rI As Integer, rF As Integer, i As Integer
Worksheets("Foglio1").Select
Range("C:C,E:G,I:I,K:M,O:O,Q:S").ClearContents
Range("C:C,E:G,I:I,K:M,O:O,Q:S").Interior.Color = xlNone
mData = Range("A1")
rI = 6
rF = 24
For j = 1 To Sheets.Count
    If Sheets(j).Name <> "Foglio1" Then
        With Worksheets(j)
            ur = .Range("E" & Rows.Count).End(xlUp).Row
            For r = 10 To ur
                If .Cells(r, 7) = mData Then
                    lettera = .Cells(r, 5)
                    mOra = .Cells(r, 6)
                    mPerc = .Cells(r, 8)
                    foglio = .Name
                    If lettera = "A" Then
                        mcol = 4
                    ElseIf lettera = "B" Then
                        mcol = 10
                    Else: mcol = 16
                    End If
                    For i = rI To rF
                        If Format(Cells(i, mcol), "hh:mm:ss") = mOra Then
                            Cells(i, mcol - 1) = lettera
                            Cells(i, mcol + 1) = mData
                            Cells(i, mcol + 2) = mPerc
                            Cells(i, mcol + 3) = foglio
                            Exit For
                        End If
                    Next i
                End If
            Next
        End With
    End If
Next j
                
End Sub