Thread: Macro Paste Special

Hey guys,

I've got a sheet which has two column headings - Resources and Cost

I have another sheet which has the calculations for both of these. They are in cells H24 and D29 of the second sheet.

I want to have a macro on the second sheet that if I click it, it will paste special these two figures (values only so no formulae), into the active cell on the first sheet.

This is the code I've got so far but every time I run the macro it just pastes into the same two cells in the first sheet and I have no idea how to change this.

Sub ResourcePaste()
'
' ResourcePaste Macro
' Macro recorded 16/09/2009 by nujwaan

'

'
    Sheets("Resource Cost Calculator").Select
    Range("D29").Select
    Selection.Copy
    Sheets("Input Form").Select
    Range("N8", "N32").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Resource Cost Calculator").Select
    Range("H24").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Input Form").Select
    Range("O8", "O32").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

Please help! I hate VBA!

Hello nujwaan,

Welocme to the Forum!

To make your posts easier to read, copy, and edit please wrap your code. I did it for you this time. Here is how you can do it next time.

How to wrap your Code
1. Select all your code using the mouse.
2. Click on the # icon on the toolbar in the Message window. This will automatically wrap the text you selected with the proper Code tags to create a Code Window in your post.

Use the Bulletin Board Code Tags
[code] at the start of the first line,
[/code] at the end of the last line.