Look at this code. Can I make it copy only formatting?

[Sven62]

Range(Cells(iVar, 1), Cells(iVar, 12)).Resize(2).FillDown
Range(Cells(iVar, 14), Cells(iVar, 38)).Resize(2).FillDown

Can it be...?

Range(Cells(iVar, 1), Cells(iVar, 12)).Resize(2).FillDown.Format
Range(Cells(iVar, 14), Cells(iVar, 38)).Resize(2).FillDown.Format

Is there any way to filldown only the formatting? I am trying to make it copy only the formatting from those cells in the last used line to the cells in the next line down.

More of the code reads thusly...

Private Sub CommandButton2_Click()
Dim ws As Worksheet
Dim rngNext As Range
Dim iVar As Long

      iVar = Range("B" & Rows.Count).End(xlUp).Row
      Set ws = Worksheets("EVENTS") 
 
      Set rngNext = ws.Range("B" & Rows.Count).End(xlUp).Offset(1)
      
      Range(Cells(iVar, 1), Cells(iVar, 12)).Resize(2).FillDown
      Range(Cells(iVar, 14), Cells(iVar, 38)).Resize(2).FillDown
      
   
       rngNext.Value = Calendar.Value
       
       rngNext.Offset(, 1).Value = MOR.Value
       
       rngNext.Offset(, 2).Value = LOSS.Value
       
       rngNext.Offset(, 3).Value = OD.Value

 Unload Me
              
End Sub

 

[Norie]

Copy, and then PasteSpecial.

    With ws.Cells(iVar, 1)
        .Resize(, 12).Copy
        .Offset(1).PasteSpecial xlPasteFormats
        With .Offset(, 13).Resize(, 25)
            .Copy
            .Offset(1).PasteSpecial xlPasteFormats
        End With
    End With

 

[mumps]

Hi Sven. Try:

Range(Cells(iVar, 1), Cells(iVar, 12)).Copy
    Cells(iVar, 1).Offset(1, 0).PasteSpecial (xlPasteFormats)
    Range(Cells(iVar, 14), Cells(iVar, 38)).Copy
    Cells(iVar, 14).Offset(1, 0).PasteSpecial (xlPasteFormats)
    Application.CutCopyMode = False