Copy data of column b according to column a

Originally Posted by Fluff13

How about

Sub HaroonSid()
   With Range("A" & Rows.Count).End(xlUp).Offset(1)
      If .Row >= 23 Then Exit Sub
      Range("B" & .Row, Range("B23")).Copy .Offset()
   End With
End Sub

Thank you sir