奇数行のみ（もしくは、偶数行のみ）の合計を求める方法として、
合計対象になるセル番地を文字列として連結し、合計を表示するセルに
数式として設定する方法があります。

Sub GetTotal()

    Dim nI   As Integer
    Dim sCll As String

    ' Ａ１からＡ２２までの奇数行の合計をＢ１に設定します
    ' 「Ａ１」のセル番地を設定します
    sCll = "A1"
    
    ' ３行目から２ステップづつ実行し、文字列を作成します
    For nI = 3 To 22 Step 2
        sCll = sCll & "," & "A" & nI
    Next nI
    
    ' 作成した文字列をＳＵＭ関数でくくってセルに設定します
    Cells(1, 2) = "=SUM(" & sCll & ")"

    ' Ａ１からＡ２２までの偶数行の合計をＣ１に設定します
    ' 「Ａ１」のセル番地を設定します
    sCll = "A2"
    
    ' ４行目から２ステップづつ実行し、文字列を作成します
    For nI = 4 To 22 Step 2
        sCll = sCll & "," & "A" & nI
    Next nI
    
    ' 作成した文字列をＳＵＭ関数でくくってセルに設定します
    Cells(1, 3) = "=SUM(" & sCll & ")"
    
End Sub