Paste formats from row1 to all rows with data

Hi guys,

I´m trying to select row1 and paste its formats only to all rows containing data in the worksheet.

I´ve been using the code bellow to copy row1 and paste it to the last row of the sheet and it works fine, but need another macro for another sheet that does the above.

With ActiveSheet
  Rows("1:1").Copy .Cells(Rows.Count, 1).End(xlUp)(2)

Thanks