You can use resize, or use Cells with Range:
Cells(1, 1).Resize(1000, 1).Value = "blah"
Range(Cells(1, 1), cells(1000,1)).value = "blah"