Sub Record_data()
    
    Dim NextRow As Long
    
    With Sheets("Data")
        NextRow = .Cells.Find("*", , , , 1, 2).Row + 1
        If NextRow < 8 Then NextRow = 8
        .Rows(NextRow).Value = .Rows(5).Value
    End With
    
End Sub