Option Explicit
Sub PasteFormat()
Dim fromRow As Integer
Dim sRow As Integer
Dim eRow As Integer
fromRow = 6
sRow = 7
Rows(fromRow & ":" & fromRow).Select
Selection.Copy
Dim thisSheet As Worksheet
Set thisSheet = ActiveSheet
fromRow = 6
sRow = 7
eRow = thisSheet.UsedRange.Rows.Count
Rows(sRow & ":" & thisSheet.UsedRange.Rows.Count).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub