Copy/Paste Range Based on Cell Info

[handlit33]

I need to run a macro that looks at a cell to figure out how many rows down to copy. In other words, if the cell (a1) has "19" in it, then the selection b1:c<b>19</b> would be selected. I have the rest of the code figured out, thanks for your time!

 

[Kenneth Hobson]

Select is seldom needed. Here it is with a bit more.

Sub t()
  Dim r As Range
  If Range("A1").Value <> "" Then
    Set r = Range("B1:C" & Range("A1").Value)
    r.Select
  End If
End Sub

 

[handlit33]

Thank you Kenneth, that worked beautifully!