```
    ABC ASD BHP WER THY SUM    
1   789 564 654 546 654 3207

2   103 123 213 123 654 1216    
3   546 394 879 654 654 2733

```

My question is how can I sum each column and row? If there is a gap row? I am trying to process each row so that it sums. It works if there is no gap in the data, but if there is a gap between the rows it doesn't fully process each cell.

Here is what I have: 

```
Sub test()

Dim intRowTot As Integer
Dim intRowCnt As Integer
Dim intColTot As Integer
Dim intColCnt As Integer

Range("B2").Select
Do Until IsEmpty(ActiveCell)

    intRowTot = 0
    intColTot = 0

    Do Until IsEmpty(ActiveCell)
        intRowTot = intRowTot + 1
        intColTot = intColTot + ActiveCell.Value
        intColCnt = intColCnt + 1
        ActiveCell.Offset(1, 0).Select

    Loop
    ActiveCell.Offset(1, 0).Value = intColTot
    ActiveCell.Offset(-intRowTot, 1).Select
    Loop

Range("B2").Select
Do Until IsEmpty(ActiveCell)

    intRowTot = 0
    intColTot = 0

    Do Until IsEmpty(ActiveCell)
        intRowTot = intRowTot + ActiveCell.Value
        intColTot = intColTot + 1
        intRowCnt = intRowCnt + 1
        ActiveCell.Offset(0, 1).Select
    Loop

    ActiveCell.Offset(0, 1).Value = intRowTot
    ActiveCell.Offset(1, -intColTot).Select
    Loop
End Sub`

```