Copy using active cell with VBA

[kelsonbaird]

I would like to click on a cell then run a macro that would copy the cell to the left and 65 more cells below it to the active cell and the 65 below it. Anyone think of a good trick to do this? Basicly I want to click in cell N20 and have a macro that would copy M20:M85 into N20:N85, but I want to use that same macro to do the same thing with lets say Z20 (and Y20:Y85)... Any tricks would be great to hear

 

[Joe4]

Welcome to the Board!

This should do it. I even added a few "checks" in it for you.

Sub MyCopyMacro()

'   Check to make sure only one cell is selected
    If Selection.Count > 1 Then
        MsgBox "Please only select one cell"
        Exit Sub
    End If

'   Make sure you are not in column A
    If ActiveCell.Column = 1 Then
        MsgBox "You cannot copy the column to the left if you are in column A"
        Exit Sub
    End If
    
'   Copy range
    Range(ActiveCell.Offset(0, -1), ActiveCell.Offset(65, -1)).Copy ActiveCell
    
End Sub

 

[kelsonbaird]

Works perfect thanks.