Copying to last colum

[Shonky]

Is there an easy way to write a macro to copy to the last column in a series of data? EG I have info in Column C (which I know is there), but I want to copy that to Column Alpha, where Column Alpha is unknown, but is the first column with no data in it?

 

[Barrie Davidson]

On 2002-03-04 04:58, Shonky wrote:
Is there an easy way to write a macro to copy to the last column in a series of data? EG I have info in Column C (which I know is there), but I want to copy that to Column Alpha, where Column Alpha is unknown, but is the first column with no data in it?

If you want to copy data to the last column in that particular row, you could use:

Range("C1").Copy Destination:=Range("C1") _
.End(xlToRight).Offset(0, 1).Address

which will copy the data in C1 to the first unused column in row 1. If you want to copy to a specific column all the time (say you have headers in row 1 but you might not have data in all the columns), you could use:

Dim LastColumn As Integer
LastColumn = Range("A1").End(xlToRight).Offset(0, 1).Column
Range("C10").Copy Destination:=Cells(10, LastColumn)


Hope this helps you out.

Regards,