If time value in Sheet 1 Col D >=2hrs then copy 4 cells in last row to Sheet 2 first empty row

[Ironman]

Hi

Sheet 1 'Training Log' last row A:E is shown below:

Fri, 8 Oct 2021	Cullingworth Rd/Haworth Rd/Flappit/L Halifax Rd/ Trough Ln/Denholme Rd/ Station Rd (Oxenhope)/ Moorhse Ln/R Marsh Ln (Haworth)/Sun St/ Bridgehouse Ln/Brow Rd Brow Top Rd/Hawrth Rd Turf Ln/Station Road/ Greenside Lane	9.9	2:22:41	14:25

Sheet 2 'Iron Man Log' A:D is shown below:

Fri 08/10/2021	9.9	2:22:41	14:25

What I'm after is some code that is triggered when the value in Col D of the last row of Sheet 'Training Log' is greater than or equal to 2 hours. When that is identified, the values in the cells in Cols A, C, D & E of that row are copied to Cols A, B, C & D of the last row in Sheet 'Iron Man Log'.

If this can be done I'd be very grateful!

Thank you!

 

[Ironman]

Resolved through trial and error.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 And Target.Row = Range("A" & Rows.Count).End(xlUp).Row Then
    Application.EnableEvents = False
    Lr1 = Target.Row
    If Sheets("Training Log").Range("D" & Lr1).Value >= 0.0833 Then
        Lr2 = Sheets("Iron Man Log").Range("A" & Rows.Count).End(xlUp).Row + 1
        Sheets("Iron Man Log").Range("A" & Lr2).Value = Sheets("Training Log").Range("A" & Lr1).Value
        Sheets("Iron Man Log").Range("B" & Lr2).Value = Sheets("Training Log").Range("C" & Lr1).Value
        Sheets("Iron Man Log").Range("C" & Lr2).Value = Sheets("Training Log").Range("D" & Lr1).Value
        Sheets("Iron Man Log").Range("D" & Lr2).Value = Sheets("Training Log").Range("E" & Lr1).Value
    Application.EnableEvents = True
    End If
End If