Solved: Copy all data on Sheet 1 to the latest blank row of sheet 2

[parscon]

I want copy all data on Sheet 1 to the latest blank filed of sheet 2 .

Could you please help me with VBA code for this subject .

Thank you very much .

[CatDaddy]

[VBA]Sheets(1).Range("A1").UsedRange.Copy Destination:=Sheets(2).Range("A" & Sheets(2).Range("A" & Rows.Count).End(xlup).Row + 1)[/VBA]

[parscon]

Dear CatDaddy

Thank you but it is not work , give me error

Run-Time error '438':

[parscon]

I found it

[VBA]
'Get last row of data
lastrowSrc = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row

'Get first blank row (last row of data +1)
lastrowDest = Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row + 1

'Copy row
Sheets("Sheet1").Range("A1:E" & lastrowSrc).EntireRow.Copy Sheets("Sheet2").Range("A" & lastrowDest)


[/VBA]

[CatDaddy]

[VBA]Sheets(2).Range("A1").CurrentRegion.Copy Destination:=Sheets(1).Range("A" & Sheets(1).Range("A" & Rows.Count).End(xlUp).Row)[/VBA]

my bad

[parscon]

Thank you

[CatDaddy]

no problem my friend

[heysus jamal]

Very nice!