Macro to auto fill to last row of data

[ljuarez]

I have a table like this:

651	OPTOUT01	asdgfa
		hsdh
		srtjdf
		ncxvba
		ryjfj
		urtyir

<tbody>
</tbody>

I would like to create a macro that will copy and paste A1:B1 all the way to the last row of data. Essentially it will autofill down to the last cell with data in column C. It should copy/paste and not fill the series (651, 652, 653 etc.)

 

[Michael M]

Why a macro ???
Simply highlight cells A1:B1, hold down the CTRL key and Drag the selected cells down to the bottom ( by the little black square in the bottom RH corner

 

[ljuarez]

Why a macro ???
Simply highlight cells A1:B1, hold down the CTRL key and Drag the selected cells down to the bottom ( by the little black square in the bottom RH corner

It does sound as simple as that, but I failed to mention that it's part of a larger macro. I'm having issues with this part. I made is to it would copy to row 200, but the end result looks messy (ocd).

Thanks

 

[Teeroy]

Perhaps;

LR = Cells(Rows.Count, 3).End(xlUp).Row
Range("A2:B2").Resize(LR - 1, 2).Value = Range("A1:B1").Value