continuous variables across columns and rows

Hi freak11,

Try this:

Option Explicit
Sub Macro1()

    Dim strMyCol As String
    Dim lngMyCol As Long, _
        lngMyRow As Long, _
        lngEndRow As Long
    Dim lngRowFrom As Long, _
        lngRowTo As Long
        
    Application.ScreenUpdating = False
        
    lngRowFrom = 2: lngRowTo = 32: lngEndRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row: lngMyCol = 67
    
    For lngMyRow = 1 To lngEndRow
        strMyCol = Left(Cells(1, lngMyCol).Address(True, False), Application.WorksheetFunction.Search("$", Cells(1, lngMyCol).Address(True, False)) - 1)
        Range("A" & lngMyRow).Formula = "=SUM(" & strMyCol & lngRowFrom & ":" & strMyCol & lngRowTo & ")"
        lngMyCol = lngMyCol + 1
        If lngMyCol = 98 Then
            lngRowFrom = lngRowFrom + 31: lngRowTo = lngRowTo + 31: lngMyCol = 67
        End If
    Next lngMyRow
    
    Application.ScreenUpdating = True
    
    MsgBox "Formulas have been enterred.", vbInformation

End Sub

Regards,

Robert