Macro - how to copy and paste

[andy-s]

Hi,
my code below does not work, and I get an error message on the line Range("AA & NxRow").Select.

Can anyone help me?

The Cell(AA & NxRow) contains a formula, and I want the macro to copy and past the value on the same cell.

Sub Copy()
NxRow = Sheets("Database").Range("Y6") + 8
Range("AA & NxRow").Select
Selection.Copy
Range("AA & NxRow").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Andy-s

 

[jim may]

Try:

Sub Copymystuff()
Dim NxRow As Integer
NxRow = Sheets("Database").Range("Y6") + 8
Range("AA" & NxRow).Copy
Range("AA" & NxRow).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub