I am still having problems with my varaibles. Below is the code i have
written, can anybody offer any help as to why it is not working?

Dim BottomRow As Range
Set BottomRow = ActiveCell

Range("a2").Select
Dim Beginning As Range
Set Beginning = ActiveCell

Selection.AutoFill Destination:=Range(Beginning, BottomRow.Offset(0,
-1)), Type:=xlFillDefault

Many Thanks,
Mark