Snasui Excel Forum

Code: Select all

Sub AddTRpayRec()
'
' AddTRpayRec Macro
'
' Keyboard Shortcut: Ctrl+Shift+Y
'
    Application.Goto Reference:="Mpayrec"
    Selection.Copy
    Application.Goto Reference:="ulTRpayrec"
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Transpose:=True
    Selection.PasteSpecial Paste:=xlPasteFormats, Transpose:=True
    Application.CutCopyMode = False
    ActiveCell.Offset(7, 1).Range("A1").Select
    Sheets("Mpayrec").Select
    Range("C4,C7,C8,C9").Select
    Range("C9").Activate
    Selection.ClearContents
    Range("C4").Select
End Sub