VBA Assistance - copy a selected cell within a specific named range and paste special to another cell

[KayWill]

I have been viewing different codes over the internet for 4 days and I can't seem to get this to work correctly. I have a named range called "REVBUD" and when selecting any cell within that range, the amount selected is supposed to paste so a table called budget. It does paste but when I go to select another cell, it overwrites and I want it to go to the next row (empty cell). My data is being posted in column "AF" starting at row 2. My codes is as follows:

Sub SPCpastesel()

RowCount = Worksheets("CoreConSummary").Range("A" & Rows.Count).End(xlUp).Offset(1)

Application.CutCopyMode = False
Selection.Copy

  With Sheets("CoreConSummary")
    Range("Budget[BUDGET]").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
  End With
  
End Sub

If any one could help it would be greatly appreciated as I'm not sure why it's not pasting to the next cell.

 

[tzw1378]

I'm not seeing the REVBUD range you refer to. I see the BUDGET range.

It looks like you're very close with the

.End(xlUp)

Instead of referring only to the "BUDGET" range, try using the

.End(xlUp)

to figure out the last populated row. You know it's in column AF and that really should be where you'll want to be. Then add 1 to whatever row is the last populated row.

Also, try to get away from using "Select". Select isn't necessary 98% of the time.

Feel free to write back if questions remain.