Finding next blank row before pasting data

[kshitij_dch]

I have a macro which copy and paste data from one workbook to another , below code only replaces code by copying the content every time , Instead I want macro to find next empty row and paste data in the master

'## Open both workbooks first:
Set X = Workbooks.Open("C:\Users\K****ij Sharma\Desktop\important.xlsm")
Set Y = Workbooks.Open("\\192.156.10.78\analytics\K****ij\Master.xlsm")

'Now, copy what you want from x:
X.Sheets("Sheet1").Range("A1:AA500").Copy

'Now, paste to y worksheet:
Y.Sheets("sheet1").Range("A1").PasteSpecial

'Close x:
X.Close
Y.Close

 

[Zot]

Next empty row on Y.Sheets("sheet1") would be

nRow = Y.Sheets("sheet1").Cells(Rows.Count, "A").End(xlUp).Row + 1

 

[kshitij_dch]

Next empty row on Y.Sheets("sheet1") would be

nRow = Y.Sheets("sheet1").Cells(Rows.Count, "A").End(xlUp).Row + 1

thanks , it worked !!

 

[Zot]

thanks , it worked !!

Glad could help.

The code is like select the last worksheet row in column A and press Ctrl+ArrowUp which will get you to last occupied row. Then need to add 1 more row

 

[Fluff]

@k****ij_dch in future when marking a post as the solution, please mark the post that contains the solution, rather than your post saying it worked.
Thanks