Zkus místo
Dim promena As Range
Set promena = sheets1.Range("B7")
Dim promena As String
promena = Range("B7").Value
nebo můžeš mít proměnnou třeba typu Byte či Integer a odkazovat se na oblast takto:
Selection.AutoFill Destination:=Range(Cells(19, 1), Cells(promena, 1))