Paste in next empty line

**Doolafs** · 05-05-2010, 06:39 AM

Hi

Need some help with my progaming.

I need to copy numbers from a sheet and paste it to another sheet in a next empty line.

Fx. if column A includes number from line 1-n, I need to paste the numbers in line n+1 >

I hope you understand me

David

**davesexcel** · 05-05-2010, 06:45 AM

    Range("D48").Copy Destination:=Range("A65536").End(xlUp).Offset(1, 0)

**Doolafs** · 05-05-2010, 06:53 AM

Thanx for quick answears

**Doolafs** · 05-05-2010, 07:13 AM

Hi again

I need to paste these number in transpose?

David

**DonkeyOte** · 05-05-2010, 07:17 AM

Perhaps using Copy / Paste route (formatting etc...)

With Sheets("Sheet1")
    .Range(.Cells(1,"A"),.Cells(.Rows.Count,"A").End(xlUp)).Copy
    With Sheets("Sheet2")
        .Cells(Rows.Count,"A").End(xlUp).Offset(1).PasteSpecial Transpose:=True
    End With
End With
Application.CutCopyMode = False