parscon
02-16-2012, 09:35 AM
I have a VBA Code and i want to paste the data to latest blank cell of another sheet :
that mean in column B in sheet 2 i have some data and now i want to copy data from sheet 1 to latest blank column of sheet 2 on column B .
With Sheets("sheet1")
.Range(.Range("B1"), .Range("B65536").End(xlUp)).Copy
End With
Sheets("sheet2").[B65536].End(xlUp)(1).PasteSpecial Paste:=xlValues
that mean in column B in sheet 2 i have some data and now i want to copy data from sheet 1 to latest blank column of sheet 2 on column B .
With Sheets("sheet1")
.Range(.Range("B1"), .Range("B65536").End(xlUp)).Copy
End With
Sheets("sheet2").[B65536].End(xlUp)(1).PasteSpecial Paste:=xlValues