Copy Range of Active row to next sheet

[RJProfiteer]

Hello,
I would like the vba code to move the range columns A thru I of the row of the active cell(but not the whole row) on Sheet1 to Sheet SOLD on the next available row within rows 1thru 80 (same columns) and then delete the row of the active cell on sheet 1.

On SOLD sheet there are column totals after row 80 so those rows woudl not be empty.
Also on SOLD sheet the columns after I contain formulas that are different for those columns on Sheet1 so cutting and pasting the row would not work.

I searched the forum and did not find the exact code needed.

 

[VoG]

Try

Sub Cpy()
Dim NR As Long
NR = Sheets("SOLD").Range("A1").End(xlDown).Offset(1).Row
Range("A" & ActiveCell.Row & ":I" & ActiveCell.Row).Copy
Sheets("SOLD").Range("A" & NR).PasteSpecial Paste:=xlPasteValues
ActiveCell.EntireRow.Delete
End Sub

 

[RJProfiteer]

almost... that copies it to the same row on SOLD each time. How could the code be modifed to copy onto the next available row or empty row?

 

[VoG]

Hmm. Doesn't do that for me but I guess it depends how SOLD is set up.

Try

Sub Cpy()
Dim NR As Long
NR = Sheets("SOLD").Range("A80").End(xlUp).Offset(1).Row
Range("A" & ActiveCell.Row & ":I" & ActiveCell.Row).Copy
Sheets("SOLD").Range("A" & NR).PasteSpecial Paste:=xlPasteValues
ActiveCell.EntireRow.Delete
End Sub

 

[RJProfiteer]

that works perferctly ! thank you very much!