Selection.End(xlDown).Select
Selection.End(xlDown).Select
Selection.End(xlDown).Select
Selection.End(xlToRight).Select
ActiveCell.Range("A1:A33").Select
Selection.AutoFill Destination:=ActiveCell.Range("A1:B33"), Type:= _
    xlFillDefault
ActiveCell.Range("A1:B33").Select
ActiveCell.Offset(1, 1).Range("A1:A32").Select
Selection.Replace What:="[36 DRD BP-04_Apr 14.xlsx]", Replacement:= _
    "[37 DRD BP-04_May 14.xlsx]", LookAt:=xlPart, SearchOrder:=xlByRows, _
    MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlToLeft).Select