VBA lookup empty cell and paste value

[gam2086]

Please help me with looking up the empty cell and paste value in the next cell.


Windows("Warehouse Schedule.xlsx").Activate
Range("C5:M170").Select
Selection.Copy
Windows("Attendance Report.xlsx").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("A169").Select
Windows("Warehouse Schedule.xlsx").Activate
Range("C177:M197").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Attendance Report.xlsx").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Thank you in advance

 

[ravishankar]

keep both books open and try the following codes

Dim x As Integer
x = Workbooks("Attendance Report.xlsx").Sheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Row
Workbooks("Warehouse Schedule.xlsx").Sheets("sheet1").Range("C5:M170").Copy
Workbooks("Attendance Report.xlsx").Sheets("sheet1").Range("A" & x + 2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
MsgBox "complete"

ravi shankar