Autosum For Single Cell In Vba

I have a macro that takes a large block of info, sorts it by certain criteria, then adds blank rows, and puts in Autosum for the various blocks of info. Problem occurs when a particular "block" of info is only 1 row. Any dirty little tricks to keep the macro running past this roadblock? The section of code looks like

Range("O1").Select
ActiveCell.Offset(2, 0).Select
Do While ActiveCell <> "end"
If ActiveCell.Offset(-1, 0) = "TOTAL" Then
ActiveCell.Offset(-1, 1).Select
ActiveCell.Font.Bold = True
SendKeys ("%="), False
SendKeys ("~"), True
ActiveCell.Offset(1, -1).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Loop