Hi all!
Hopefully a quick question. I have a macro that with a click copies a data range from one worksheet into another, just bellow the last entry and transposes it. However I now need to change this macro. The cell references and everything remain the same, but it now needs to paste into a Table ("Table1"). At the moment, the macro I have simply pastes it immediately outside of the Table's range.
Here's the existing code:
Hopefully a quick question. I have a macro that with a click copies a data range from one worksheet into another, just bellow the last entry and transposes it. However I now need to change this macro. The cell references and everything remain the same, but it now needs to paste into a Table ("Table1"). At the moment, the macro I have simply pastes it immediately outside of the Table's range.
Here's the existing code:
Code:
Sub Plan()
Sheets("Step2").Select
Range("e4:e30").Select
Selection.Copy
Sheets("Table").Select
Range("a65536").End(xlUp)(2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("Step2").Select
MsgBox "Your entries are saved to a Table", , "Record saved"
Range("E5:E8,E10:E15,E17:E28,E30").Select
Selection.FormulaR1C1 = ""
Application.CutCopyMode = False
[e5].Select
Sheets("Quarters").Select
Range("c3,c6,c8").Select
Selection.FormulaR1C1 = ""
Application.CutCopyMode = False
[c4].Select
Sheets("Month").Select
Range("c3,c6,c8").Select
Selection.FormulaR1C1 = ""
Application.CutCopyMode = False
[c4].Select
Sheets("Step2").Select
[e5].Select
Call Mail_small_Text_Outlook
End Sub