My Code:
It Bombs after running Line 6;

Public Sub CellFormat()
Application.ScreenUpdating = False
r = ActiveCell.Row
Worksheets("CellFormat") _
.Range("C1:N1").EntireRow.Copy
Worksheets("Sheet1").Activate
Rows("r:r").Select <<< Bombs Here with R/T error 1004.. Why?
ActiveSheet.Paste
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub