I assume you have a total row with formulas. You probably want to always
have one blank row between the total row and the last line of data. Use a
worksheet change function and search for total in column A. then check if
the row below the word total is blank like this

Private Sub Worksheet_Change(ByVal Target As Range)
set c = columns("A").find(what:="Total", lookin:=xlvalues,lookat:=xlwhole)
if not c is nothing then
if c.offset(-1,0) < "" then
rows(c.row).insert
end if
end if

end Sub

"Mark" wrote:

Community Message Not Available