Need VBA to copy active row and paste it in last row of another sheet

[forginganewone]

Need macro to copy active row and paste it in xfiles-xsheets-lastrow. With same format and everything.

I've tried this :
<code>Option Explicit

Sub copypasterow()
Dim wbTarget As Workbook
Selection.EntireRow.Copy
Set wbTarget = Workbooks.Open("C:\YOURPATH\FILE.xlsx")
wbTarget.Sheets("Sheet1").Range("B1").End(xlDown).Offset(1, -1).PasteSpecial
End Sub


And this:

<code>Option Explicit

Sub copypasterow()
Dim wbTarget As Workbook
Dim Filetarget As String
Dim WorksheetEndRow As Integer


Filetarget = "C:\Users\francesco.dinh\Downloads\asdf.xlsx"


Selection.EntireRow.Copy
Set wbTarget = Workbooks.Open(Filetarget)
WorksheetEndRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Range("A" & WorksheetEndRow + 1).PasteSpecial
Application.CutCopyMode = False
End Sub



It gives me following error :</code></code>[h=2]runtime error 1004 pastespecial method of range class failed[/h]<code><code></code></code>

 

[forginganewone]

not quite, try

Sub copypasterow()
Dim wsTarget As Worksheet
Dim rng As Range

Set rng = activecell

Set wsTarget = Workbooks("asdf.xlsx").Sheets("Sheet1")
rng.EntireRow.Copy wsTarget.Rows(wsTarget.Cells.find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Offset(1).Row)
End Sub

This is it exactly what i wanted ! Thank you so much. I was trying to find this macro for 2 weeks now on different forums. I wish you well, stay blessed.

 

[Fluff]

Glad we could help & thanks for the feedback