Copying column data from one sheet to another

[petenaylor]

Hi all

I am new to Macros and I need a little help with a project I have just been given. I have two sheets in an Excel workbook. One has the information in column D starting in cell D2 in my 'source' sheet.

I want to be able to copy all the entries in that column to another sheet called 'empty' and start the import in cell D10.

The thing is there will be a different amount of entries in the column in the 'source' sheet so I will need a loop.

Can anyone help?

Many thanks
Pete

 

[Domski]

Try:

Sub test()
With Sheets("Source")
.Range("D2:" & .Cells(Rows.Count, 4).End(xlUp).Row).Copy Sheets("Empty").Range("D10")
End With
End Sub

Dom

 

[VoG]

Try

Sub Cpy()
Dim LR As Long
With Sheets("Source")
    LR = .Range("D" & Rows.Count).End(xlUp).Row
    .Range("D2:D" & LR).Copy Destination:=Sheets("Empty").Range("D10")
End With
End Sub

 

[petenaylor]

Brilliant! Thanks ever so much for the quick response, they work just as I want.

Cheers
Pete.