Very easy problem : Pasting each cell in a given range with offset

Hi everyone,

i just can't see what I'm doing wrong here:

Sub CopyData()

Dim Wklej As Range
Dim Cell As Range
Set Wklej = Application.Range("I1")


For Each Cell In Application.Range("G7:G30")

    Cell.Copy Wklej
        Wklej = Wklej.Offset(1, 1)
            Next Cell
                

End Sub

I just want to Copy each Cell from G7:G30 and paste it with an offset of (1,1) begining with Cell "I1".

Thanks!

I could, but I need the offset function. Thanks a lot! I was indeed missing the "Set" :/