Excel VBA для выписки

Question

Я хочу создать цикл для следующего кода.Единственное, что мне нужно, чтобы сделать цикл, это перейти к следующему столбцу (который будет столбцом F).ряды останутся прежними.какие-либо предложения?

xlSheet.Range("e23") = (Me.overrings)
xlSheet.Range("e33") = (Me.overingTax)
xlSheet.Range("e27") = (Me.Sampling)
xlSheet.Range("e28") = (Me.Waste)
xlSheet.Range("e29") = (Me.Promo)
xlSheet.Range("e42") = (Me.Online)
xlSheet.Range("e34") = (Me.freebieTax)
xlSheet.Range("e49") = (Me.totalDepo)
xlSheet.Range("e38") = (Me.CreditCards)

Answer 1

Если вам действительно нужно то же значение в соседней ячейке, вы можете изменить существующий код следующим образом (без цикла):

xlSheet.Range("e23:f23") = (Me.overrings)

Answer 2

For x= 5 to 6
With xlSheet.columns(x)
   .cells(23).value=Me.overrings
   'etc 
End with
Next x