Help Looping

[gheyman]

I have a sheet that could have a bunch of project numbers listed across row 4 starting at column H

What I need to do is have code that says look at cell I4 and if it’s not blank copy the formula in Range(“H6:H29”).Copy and copy it into I6:I29 then go to J4 and if it’s not blank Range(“H6:H29”).Copy and paste it in J6:J29 and so on….

Dim i As Long
For i = 9 To 209
'
If Len(Cells(4, i).Value) <> 0 Then
Sheets(“Actuals by Element”).Range(“H6:H29”).Copy
Sheets("Actuals by Element").Cells(4, i).Offset(26).Resize(26).Copy
Here is a problem I can’t solve because I don’t want it to include row 4
How do I get it to position itself in row 6 instead of 4

Thanks for the help

 

[Domenic]

Try...

    Dim i As Long
    
    With Sheets("Actuals by Element")
        .Range("H6:H29").Copy
        For i = 9 To 209
            If Len(.Cells(4, i).Value) <> 0 Then
                .Cells(6, i).PasteSpecial Paste:=xlPasteFormulas
            End If
        Next i
    End With
    
    Application.CutCopyMode = False

 

[gheyman]

It worked perfectly. Thanks Dominec

I was able to modify it for several other VBA tasks.

Much appreciated