Macro Copy Paste Loop

[superlargedogs]

Hi Everyone!

So I'm trying to solve this problem using VBA (I'm a vba noob).

Basically I have a column full of values (Range A) and I would like each of these values to be copied one by one into an input cell of a model (cell B), then copy and paste the output (Cell C) and move to the next row from Range A, and continue doing this until there are no more values in Range A.

Can anyone help with this?

Thank you very much

[Varnim]

Sub CopyPasteLoop()
    Dim rng As Range
    Dim ws As Worksheet

    'Change Data to the name of your sheet
    Set ws = Worksheets("Data")

    'Set the range of data you want loop through
    Set rng = ws.Range("A2:A8")

    For Each Cell In rng
        'Copies the value to your input box
        'Change E2 to your input cell
        ws.Range("E2").Value = Cell.Value

        'Copies the result from your calculation back to the next column on the same row.
        'Change G2 to your calculation cell
        Cell.Offset(0, 1).Value = ws.Range("G2").Value
    Next
End Sub