VBA code to copy and paste a cell

http://www.mrexcel.com/forum/excel-questions/49124-visual-basic-applications-copy-paste-cell-value-only-not-formula.html

>>  I m looking for a VBA code that woud allow me to copy the selected cell in column A and move it a cell in clumn b that is 11 rows up and 2 columns to the right.

Not to be too picky or anything, but column B will never be "2 columns to the right" of column A.  It will always be 1 column to the right.  ;-)

Shanon's code will (of course) only work if the active cell is in row 12 or higher.  You may want to add some error handling or check the address of the current cell before running the copy and paste.

Sub Sample()

    Dim Cop
    
    Cop = ActiveCell.Value
    i = ActiveCell.Row
    If i >= 12 Then
         Cells(ActiveCell.Row - 11, ActiveCell.Column + 2).Value = Cop
    End If
End Sub

Select allOpen in new window