VBA copy range error

[jakobt]

This code want copy. Error: object required.

Sub last_row()
dim last_row as integer
dim rangecopy as range

last_row = Range("B" & Rows.count).End(xlup).row
set rangecopy = range("a1:" & last_row).copy

debug.print rangecopy.address

end sub

 

[Osvaldo Palmeiro]

Maybe this:

Sub last_row()
 Dim last_row As Integer
 Dim rangecopy As Range
  last_row = Range("B" & Rows.Count).End(xlUp).Row
  Set rangecopy = Range("A1:A" & last_row)
  rangecopy.Copy
  Debug.Print rangecopy.Address
End Sub