Macro to auto fill to last row of data

[ljuarez]

I have a table like this:

[TABLE="width: 500"]
<tbody>[TR]
[TD]651[/TD]
[TD]OPTOUT01[/TD]
[TD]asdgfa[/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD]hsdh[/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD]srtjdf[/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD]ncxvba[/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD]ryjfj[/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD]urtyir[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

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