Macro to copy paste single cell at the time from the list

[Henceman]

I have following simple code, which takes values from A column and pastes them to B2, one by one, and runs some code on each of these values, which is not relevant to this question.

Range("A13").Copy Range("B2")
Range("A14").Copy Range("B2")
Range("A15").Copy Range("B2")
Range("A16").Copy Range("B2")
Range("A17").Copy Range("B2")
...

Problem is, that the amount of values I have in A column is not fixed, there might be 5, might be 15 or more. I cannot tell macro to simply copy and paste values from 13-to 17.

How can I set this range to be dynamic, so if there are only two values, macro stops after these two?

 

[Henceman]

Blank space is in an indicator. Data starts always from A13, and continues down, until there is an empty cell in between,

 

[Fluff]

Will there always be data in A14?

 

[Henceman]

It would be best to assume, at least one cell is filled- A13, rest may or may not be filled.

 

[Fluff]

Ok, how about

Sub Henceman()
   Dim Cl As Range
   Dim Lr As Long
   
   If [a14] = "" Then Lr = 13 Else Lr = [a13].End(xlDown).row
   For Each Cl In Range("A13:A" & Lr)
      Cl.Copy Range("B2")
      'your code here
   Next Cl
End Sub

 

[Henceman]

Thank you Fluff! I tried and tested, this is a solution im going for right now! Sorry for long delay getting back to you.

 

[Fluff]

Glad to help & thanks for the feedback.