Option Explicit
'http://www.mvps.org/dmcritchie/excel/fillhand.htm#filld
' also see http://www.mvps.org/dmcritchie/excel/toolbars.htm
Sub filld()
  'Simulate Ctrl+D (fill down), D.McRitchie  2005-06-14 programming
  ' http://www.mvps.org/dmcritchie/excel/fillhand.htm#filld (based only on left)
  If IsEmpty(ActiveCell) Then Exit Sub
  Range(ActiveCell, ActiveCell.Offset(0, -1).End(xlDown).Offset(0, 1)).FillDown
End Sub

Sub filld_to_last_at_left()
  'Fill down to lastrow based on cell to left, D.McRitchie  2005-06-14 programming
  ' http://www.mvps.org/dmcritchie/excel/fillhand.htm#filld
  If IsEmpty(ActiveCell) Then Exit Sub
  Range(ActiveCell, Cells(Rows.Count, _
       ActiveCell.Column - 1).End(xlUp).Offset(0, 1)).FillDown
End Sub