Hi Bob

I get the error messages at line 11 Range("B2").Select

"Bob Phillips" wrote:

> It runs okay for me. What line do you get the error on?
>
> --
> HTH
>
> Bob Phillips
>
> "Jonathan" <Jonathan@discussions.microsoft.com> wrote in message
> news:0C61ECF2-CC3F-4CCA-A8C2-541B37F025F9@microsoft.com...
> > I am trying to copy the value of the last cell with a value on sheet 1
> column
> > B to the first blank cell on sheet 2 column B, but I keep getting errors
> in
> > my script (please see below) am I missing something really obvious? (Error
> > Message "run-time error 1004")
> >
> > Worksheets(2).Cells(1, 1).Value = "CB Barcode"
> > Worksheets(2).Cells(1, 2).Value = "8 Digit Code"
> > Worksheets(2).Cells(2, 2).Value = " "
> > Range("B2").Select
> > Selection.ClearContents
> > Worksheets(1).Select
> > Range("B1").Select
> > ActiveCell.SpecialCells(xlLastCell).Select
> > Selection.Copy
> > Worksheets(2).Select
> > Range("B2").Select
> > ActiveSheet.Paste
> >
> > Tia
> >
> > Jonathan
> >
> >
>
>
>