a generic macro

[yen111]

I hope this is simple since I am new to macros

I need to be able to start at the cell of the current location
not "BU" but any column, "a generic macro"

Thanks


'
'' Keyboard Shortcut: Ctrl+q
'
ActiveCell.FormulaR1C1 = "0"
Range("BU3").Select
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.End(xlDown).Select
Range("BU161").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.End(xlDown).Select
Range("BU320").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Range("BU161").Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Range("BU3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

 

[Scott Huish]

What is this supposed to do exactly?

 

[dantb]

as far as a starting point. Remove
Range("BU3").Select

 

[erik.van.geit]

instead of
Range("BU3")
try something like

Cells(3, ActiveCell.Column)