Option Explicit
Sub Example()
Dim wks As Excel.Worksheet
Dim rngColumnData As Excel.Range
Dim rngColumnTarget As Excel.Range
Set wks = Worksheets("Tabelle1")
Set rngColumnData = wks.Range("AQ2:AQ22")
Set rngColumnTarget = wks.Range("AJ24")
Dim i As Long
For i = 1 To 5
Debug.Print rngColumnTarget.Address; " := AVERAGE("; rngColumnData.Address; ")"
On Error Resume Next
rngColumnTarget.Value = WorksheetFunction.Average(rngColumnData)
If Err.Number Then rngColumnTarget.Value = CVErr(XlCVError.xlErrDiv0)
On Error GoTo 0
Set rngColumnData = rngColumnData.Offset(ColumnOffset:=1)
Set rngColumnTarget = rngColumnTarget.Offset(RowOffset:=1)
Next
End Sub