Copy and Paste

[Roses8]

Hi, im trying to copy and paste from A1 to I and till last row and paste into sheet 1 in A1 last row, but when it copies it selects empty cells and does not paste correctly.

Thanks.

Sub Macro1()

lastrow = Range("A65000").End(xlUp).Row

Sheets("Qry_Hse_Business_BSM").Select
Range("A1:I1" & lastrow).Copy
Sheets("Sheet1").Select
Range("A1" & lastrow + 1).PasteSpecial (xlPasteValues)
End Sub

 

[iggydarsa]

I dont know if it will help but try to change:

 Range("A1:I1" & lastrow).Copy

to

Range("A1:I" & lastrow).Copy

 

[Roses8]

Hi thanks, but when i want it to paste, it paste on column A but row 18 and i dont know why, when it should paste in A1, otherwise look for the next empty row then paste in column A.


Sub Macro1()

lastrow = Range("I65000").End(xlUp).Row

Sheets("Qry_Hse_Business_BSM").Select
Range("A1:I" & lastrow).Copy
Sheets("Sheet1").Select
Range("A1" & lastrow).PasteSpecial (xlPasteValues)
Sheets("Qry_Hse_Business_BSM").Select
Application.CutCopyMode = False
End Sub

 

[iggydarsa]

I am sorry, I couldnt understand your problem, but if you are trying to paste on A1 try:

Range("A1").PasteSpecial (xlPasteValues)

in stead of

Range("A1" & lastrow).PasteSpecial (xlPasteValues)

 

[Roses8]

Hi,

I have several things to paste...what i am trying to achieve with help..

is that select A1, but if something is already contained in it, then skip 1 row and paste on the next empty cell.

 

[iggydarsa]

Try this


Sub Macro1()

lastrow = Range("I65000").End(xlUp).Row
OtherLastRow=Worksheets("Sheet1").Range("A65000").End(xlup).Row+1 'Added this line
Sheets("Qry_Hse_Business_BSM").Select
Range("A1:I" & lastrow).Copy
Sheets("Sheet1").Select
Range("A" & OtherLastRow).PasteSpecial (xlPasteValues) 'Changed this lineSheets("Qry_Hse_Business_BSM").Select
Application.CutCopyMode = False
End Sub

 

[Roses8]

Thank you, that helped.