I took the liberty of cleaning up your code a bit. I would give this a try.
It should do the same thing. If not, let me know.

Option Explicit

Sub TEST()

Dim lngLastRow As Long

With Sheets("Report(metArb)")
lngLastRow = .Cells(Rows.Count, "B").End(xlDown).Row + 2
.Cells(lngLastRow, 5).Value = "Total"
.Cells(lngLastRow, 8).Formula = "=sum(H2:H" & lngLastRow & ")"
.Cells(lngLastRow, 9).Formula = "=sum(I2:I" & lngLastRow & ")"
End With

End Sub

Hope this helps! If so, let me know and click "YES" below.
--
Cheers,
Ryan


"Ro477" wrote:

I am using Excel2002sp3 on WinXP. I have written

Worksheets("Report(metArb)").Activate
Range("B3").Select
Selection.End(xlDown).Select
lastfilledrow = ActiveCell.Row
ActiveSheet.Cells(lastfilledrow + 2, 5).Value = "Totaal"
sumcellformula = "=sum(h2:h" & lastfilledrow & ")"
ActiveSheet.Cells(lastfilledrow + 2, 8).Formula = sumcellformula
sumcellformula = "=sum(i2:i" & lastfilledrow & ")"
ActiveSheet.Cells(lastfilledrow + 2, 9).Formula = sumcellformula
sumcellformula = "=sum(j2:j" & lastfilledrow & ")"
End Sub

to find the last row and make some totals. This seems to work okay, but I am
having trouble selecting the lastfilledrow+2 ... that is selecting the whole
row. I'm sure it is simple, but I can't for the love of me figure out how to
do it. Basically .... how can I format the lastfilledrow+2, columns 5 to 9,
so that they are bold and red.... or basically how can I select the whole or
part of a row so I can format it ?

thanks for your help ... Roger