Copy non continuous data to a continuous range -VBA

[kelly mort]

I want to set the value for G36:G54 to data from cells

A22
A25
A28
A31
A34
A37
A40
A43
A46
A49

I cannot seem to get the coolest way to get it done.

Can someone pull it out for me?

 

[My Aswer Is This]

The Range looks larger then the Ranges shown.

 

[kelly mort]

Oh I just saw that

My keyboard auto correct that

Its G36:G45

10 cells each

 

[Steve_]

I want to set the value for G36:G54 to data from cells

A22
A25
A28
A31
A34
A37
A40
A43
A46
A49

I cannot seem to get the coolest way to get it done.

Can someone pull it out for me?

Maybe this?

Sub Test()
    iStart = 22
    For Each xlCell In Sheets("Sheet1").Range("G36:G45")
        xlCell.Value = Sheets("Sheet1").Range("A" & iStart).Value
        iStart = iStart + 3
    Next xlCell
End Sub

 

[Jaafar Tribak]

Range("G36:G45").Value = Range("A22:A49").Value

or this :

Range("G36:G45").Formula = Range("A22:A49").Formula

 

[My Aswer Is This]

Try this:

Sub Fill_Range()
'Modified 7/22/2019 10:33:17 AM  EDT
Dim i As Long
Dim x As Long
x = 22
For i = 36 To 45
    Cells(i, "G").Value = Cells(x, 1).Value
    x = x + 3
Next

 

[Jaafar Tribak]

Sorry, I didn't pay attention to "non continuous" !

 

[kelly mort]

The codes for both @Steve and @My Answer Is This

Worked fine.

I appreciate that.
@Jaafar Tribak
Yours didn't do the job

 

[Steve_]

The codes for both @Steve and @My Answer Is This

Worked fine.

I appreciate that.

Happy to help!

 

[My Aswer Is This]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

Happy to help!