I would like to copy B1 to B2:B1000 until a cell in Column A is empty by
using VBA. Could someone please help.

Thanks

Hi Alan,

I am not certain that I understand exactly what you want to do because your
description is a little vague.

I interpret your request as you want to copy cell B1 and paste the contents
down in column B until it comes to a blank cell in column A. If this is right
then you can use the following:-

With Sheets("Sheet1")
.Range("B1").Copy _
Destination:=.Range(.Cells(2, 1) _
.End(xlDown).Offset(0, 1), .Cells(2, 2))
End With

You may replace the line With Sheets("Sheet1") with the following line if it
will always be the active sheet:-

With ActiveSheet

If my interpretation is not correct then please reply and I'll have another
go at it.

Regards,

OssieMac





"AlanW" wrote:

> I would like to copy B1 to B2:B1000 until a cell in Column A is empty by
> using VBA. Could someone please help.
>
> Thanks

Hello OssieMac,

That's what I want to do, many Thanks

Alan
"OssieMac" wrote:

> Hi Alan,
>
> I am not certain that I understand exactly what you want to do because your
> description is a little vague.
>
> I interpret your request as you want to copy cell B1 and paste the contents
> down in column B until it comes to a blank cell in column A. If this is right
> then you can use the following:-
>
> With Sheets("Sheet1")
> .Range("B1").Copy _
> Destination:=.Range(.Cells(2, 1) _
> .End(xlDown).Offset(0, 1), .Cells(2, 2))
> End With
>
> You may replace the line With Sheets("Sheet1") with the following line if it
> will always be the active sheet:-
>
> With ActiveSheet
>
> If my interpretation is not correct then please reply and I'll have another
> go at it.
>
> Regards,
>
> OssieMac
>
>
>
>
>
> "AlanW" wrote:
>
> > I would like to copy B1 to B2:B1000 until a cell in Column A is empty by
> > using VBA. Could someone please help.
> >
> > Thanks