Macro to restrict to paste the data on all blank cells in column A

Hello All,

I have a macro which is copying data from B3:B8 and pasting it in the blank cells of Column B.
It is helpful the only problem is that it is pasting data to all blank cells in Column B.

Need your help to restrict the pasting of data in blank cells off Column B adjacent A column.

Code:
Range("b3:b8").Copy

Dim ws As Worksheet
Set ws = ActiveSheet

For Each cell In ws.Columns(2).Cells
If IsEmpty(cell) = True Then cell.PasteSpecial:
Next cell

regards,
Shan

Thank you for your quick reply..

I am getting below error while using this code..

"Object Required"


Regards,
Shan

Thank you Sir... The below code given by you is working as desired. Thank you so much.
But I am unable to see the code you have provided here. I have received a email in that code is available.

Dim ws As Worksheet, LR As Integer
Set ws = ActiveSheet

LR = ws.Cells(Rows.Count, 1).End(xlUp).Row

For Each cell In ws.Range(Cells(1, 2), Cells(LR, 2))
If IsEmpty(cell) = True Then cell.PasteSpecial
Next cell

Thank you so much
Have a Nice Day !!!

Thank you Sir..
I am able to view old code only..

I think there is some problem.

Anyway I have received the updated code over my email .... and Its working fine..

Even if you not paste it again here it is ok...

I am tagging this thread as Solved!!!

Thank you so much