Copy data of column b according to column a

hi,
i have data in Range A4:A6 and B4:B23

now i want to data copy B7:B23 and paste to A7

if
i have data in Range A4:A10 and B4:B23

now i want to data copy B11:B23 and paste to A11

copy data according to range A4:?


hope some one will help

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

Sir
this code not working with table range
please any solution

Originally Posted by Fluff13

How about

Sub HaroonSid()
   With ActiveSheet.ListObjects(1).ListColumns(1)
      With .Range.SpecialCells(xlBlanks)
         .Value = .Offset(, 1).Value
      End With
   End With
End Sub

This will not work if you have non-contiguous blanks in col A

Thanks for the reply
But i am not able to work this code on to table

Please help

Working very well now
thanks for your valueable time