Looping a Macro

[Nuccio92]

How do I loop this Macro but instead of B2 use C2?

Sub Relocation_Priority()

    

Dim ws As Worksheet: Set ws = Worksheets("Example")

    lRow = Worksheets(ws.Range("B2").Value).Range("A" & Rows.Count).End(xlUp).Row

    startRow = 4

    

    With Sheets("Example")

       For i = 2 To lRow

            .Range("A" & startRow).Resize(1).Value = Sheets(ws.Range("B2").Value).Range("A" & i).Value

            .Range("B" & startRow).Resize(1).Value = Sheets(ws.Range("B2").Value).Range("B" & i).Value

            .Range("E" & startRow).Resize(1).Value = Sheets(ws.Range("B2").Value).Range("E" & i).Value

            .Range("F" & startRow).Resize(1).Value = Sheets(ws.Range("B2").Value).Range("F" & i).Value

            .Range("G" & startRow).Resize(1).Value = Sheets(ws.Range("B2").Value).Range("G" & i).Value

            .Range("H" & startRow).Resize(1).Value = Sheets(ws.Range("B2").Value).Range("H" & i).Value

            .Range("I" & startRow).Resize(1).Value = Sheets(ws.Range("B2").Value).Range("I" & i).Value

            .Range("J" & startRow).Resize(1).Value = Sheets(ws.Range("B2").Value).Range("J" & i).Value

            .Range("K" & startRow).Resize(1).Value = Sheets(ws.Range("B2").Value).Range("K" & i).Value

            startRow = startRow + 1

        Next

        

    End With

End Sub

[Gatti]

Well... changing B2 to C2?

[Nuccio92]

I mean I would like to continue the Macro and right after it runs B2 I would like it to do the same exact thing for C2.

[Gatti]

So... what is the real problem here?

You already know what has to be done, just "double" your code and replace B to C

Not the best way though, but you have the code done

[Nuccio92]

Yeah I understood after I replied the last time! and I know just the best way I knew how. Thank you!

[Nuccio92]

If C2 is blank is there a way to stop the macro so it doesn't get an error?

[Gatti]

Put an If before the C2 code.

This way:

If sheet.range("$C$2").value <> "" Then
       'Your code here
End if