Public Sub mMinuti() ' REGISTRA NUMERO E TEMPO

    Dim sh1 As Worksheet
    Dim sh3 As Worksheet
    Dim lng As Long
    Dim lCol As Long
    Dim lRiga As Long

    Set sh1 = ThisWorkbook.Worksheets("Iscrizioni")
    Set sh3 = ThisWorkbook.Worksheets("Conta Giri")
    Application.ScreenUpdating = False

    With sh1
        For lng = 4 To 49
            If .Cells(lng, 2).Value = sh3.Range("C6").Value Then
                lCol = .Cells(lng, .Columns.Count).End(xlToLeft).Column + 1
                .Cells(lng, lCol).Value = Format(sh3.Range("C3"), "hh.mm.ss")
.Cells(lng + 50, lCol).Value = Format(sh3.Range("C3") - .Cells(lng, lCol - 1), "hh.mm.ss")
                Exit For
            End If
        Next lng
    End With
    With sh3
        lRiga = .Range("C" & .Rows.Count).End(xlUp).Row + 1
        .Range("C" & lRiga).Value = .Range("C6").Value
        .Range("D" & lRiga).Value = Format(.Range("C3"), "hh.mm.ss")
        .Range("C6").Value = ""
    End With
    Application.ScreenUpdating = True
    Set sh1 = Nothing
    Set sh3 = Nothing

End Sub