One way:

With lastRow.Offset(0, 3).Resize(1, 2)
.AutoFill Destination:=.Resize(2, 2), Type:=xlFillFormats
End With




In article , "gregork"
wrote:

Tom Ogilvy kindly provided the following code that I use to copy a formula
and format when adding items to a list:

LastRow.Offset(1,3).Resize(1,2).Filldown

I was just wondering what I could use if I only wanted to fill the format of
the cell above and not the formula or data.

GK