I have a macro, that selects the last row in a range of cells and inputs a
blank row just above this (as below).

I want to then format the cells I input, and am having trouble writing the
macro to select them

Can anyone help?


Dim LastRow As Long, NumberOfBlankRows
NumberOfBlankRows = 1
LastRow = Range("A3:R1000").Find(What:="*", SearchOrder:=xlColumns, _
SearchDirection:=xlPrevious, LookIn:=xlValues).Row
Intersect(Range("A:R"), Rows(LastRow)).Resize(NumberOfBlankRows).Insert