VBA Macro shortcut to "paste special formula"

[aditya8090]

Hi all! I have been trying to write VBA macro to simulate the keystroke (Ctrl + Alt + v + f) to copy and paste formula from an excel cell. I'm a beginner, and so far I've been able to develop the functionality of copying the formula and pasting it relationally. However, the code breaks if it is pasted to a column having more or less elements than the column it was copied for. I've attached a graphical representation for the problem too. Please help me fix this. Thanks, in advance.

Code:

Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+q
'
ActiveCell.Offset(0, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub

Graphical representation (the formula is just summing up the elements - 16 is the sum of 2 eight times):
A B C D

2		3		1		1
2		3		1		1
2		3		1		1
2		3		1		1
2		3		1		1
2		3		1		1
2		3		1		1
2		3		1		1
16		24		8		1
						1
						1
						1
						8 ^^ Code breaks above

<colgroup><col width="64" style="width: 48pt;" span="7"> <tbody> </tbody>

 

[aditya8090]

Something like

With Selection
    .Offset(0,1).FormualR1C1 = .FormulaR1C1
End With

But wouldn't this code ONLY work when the formula we wish to copy is in the column directly left to us. The code will break if I were to copy my formula from a cell maybe 5 columns away.

 

[mikerickson]

Yes, that's why I was asking how the user would indicate the source/destination ranges.
There are three things the user needs to indicate, source range, destination range, "do it now" (as opposed to the current native 4 user instruction method)