VBA to move row values from one sheet to empty row.

[QualitySoup]

Hi, Everyone!

I'm trying to find a way to have values copy to the first empty row on a separate sheet. Below is the code that I am working with from @My Aswer Is This.
All I need is for excel to find the first empty row from top to bottom and "paste" it there.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Modified  7/15/2022  12:41:36 AM  EDT
If Target.Column = 1 Then
On Error GoTo M
Dim r As Long
Dim ans As String
ans = Target.Value
r = Target.Row
Dim Lastrow As Long
Lastrow = Sheets(ans).Cells(Rows.Count, "A").End(xlUp).Row + 1
Rows(r).Copy Sheets(ans).Rows(Lastrow)
Rows(r).ClearContents
End If
Exit Sub
M:
MsgBox "You double clicked on " & ans & vbNewLine & "This sheet does not exist"
End Sub

 

[Michael M]

Is this what you need ??

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Lr As Long
Lr = Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row + 1 'change sheet names to suit
lr2 = Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Row + 1 'change sheet names to suit
Range(Cells(1, 1), Cells(Lr, 1)).Copy Sheets("Sheet2").Cells(lr2, 1) 'change sheet names to suit
End Sub

 

[Fluff]

Duplicate to: Move row to another worksheet if checked

In future, please do not post the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.

In relation to your question here, I have closed this thread so please continue in the linked thread.