is there any way to paste the data on the last row of excel.

[A9kurs]

hi

how can i paste the data on last column after previous data.

Sub GetFileCopyData1()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim Fname As String
Dim SrcWbk As Workbook
Dim DestWbk As Workbook
Set DestWbk = ThisWorkbook
Fname = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls*), *.xls*", Title:="Select a File")
If Fname = "False" Then Exit Sub
Set SrcWbk = Workbooks.Open(Fname)
'SrcWbk.Sheets("Planned Inventory Transactions_").Range("A:X").Copy DestWbk.Sheets("Planned Inventory Transactions_").Range("A:X")
SrcWbk.Sheets("Planned Inventory Transactions_").Range("A:X").Copy DestWbk.Sheets("Planned Inventory Transactions_").Range("A2:X2" & Range("A" & Rows.Count).End(xlUp).Row)
SrcWbk.Close False
Call Fill_Down
Call CopyPaste
End Sub

Thanks