Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim L As Long
If Intersect(Me.[F5,G5,K5], Target) Is Nothing Then Exit Sub
On Error Resume Next
L = WorksheetFunction.Match([D1], [D6:D125], 0) + 5
If Err Then Exit Sub
Application.EnableEvents = False
Intersect(Me.Rows(L), Target.EntireColumn).Value = Target.Value
Target.Value = Empty
Application.EnableEvents = True
End Sub