Jump X amount of Columns and paste formula within a for loop

[drop05]

Hello, I wanted to see that within a for loop in VBA, is there a way to start at a cell then every 4 columns over until the last column in use

So starting at F44 it copies that formula there, pastes it every 4 columns now, so J44, N44, R44, and so on

thank you in advance!

 

[Norie]

Which row are you using to detemine the last used column?

 

[drop05]

Which row are you using to detemine the last used column?

its would only be happening on row 44 starting from F44 where would copy the formula from then 4 columns over start pasting so j44, N44
would think that using in the logic would help determine the last column

Cells(1, Columns.Count).End(xlToLeft).Column

 

[Norie]

In that code you are using row 1 to determine the last used column, so based on that and starting in column F you could use this.

Dim col As Long

    For col = 6 To Cells(1, Columns.Count).End(xlToLeft).Column Step 4
        Cells(44, col).FormulaR1C1 = "=R1C"
    Next col

 

[drop05]

In that code you are using row 1 to determine the last used column, so based on that and starting in column F you could use this.

Dim col As Long

    For col = 6 To Cells(1, Columns.Count).End(xlToLeft).Column Step 4
        Cells(44, col).FormulaR1C1 = "=R1C"
    Next col

Yes sorry, i posted that as an example of what i thought could be used, but yes would like to start from column F
what does R1C1 do?

this is the logic i added it to

Sub Formula_change()

Dim col As Long

Dim sch As Workbook
Set sch = Application.ThisWorkbook
Dim sch_ws As Worksheet

Dim sch1 As Worksheet
Set sch1 = sch.Worksheets("Page 1")

    For col = 6 To Cells(1, Columns.count).End(xlToLeft).Column Step 4
        Cells(44, col).FormulaR1C1 = "=R1C"        
    Next col

End Sub

I have the formula i want in cell F44 and it is not pasting in the cells after, j44, n44 etc