VBA Code Editing Help Requested

[Justinian]

Every morning, I copy data from an external source and paste into Excel. This gives me work order information from the previous day except for one problem: I do not need the pasted data in column G. Starting from a blank worksheet, I run this code to paste the data:

Sub Paste_Copied_Data()

Range("A1").Select
ActiveSheet.paste
Range("L18").Select

End Sub


When I then try to remove the pasted data in column G with the following macro, all my data gets deleted instead of just column G:

Sub Macro1()
'
Columns("G:G").Select
Selection.Delete Shift:=xlToLeft

End Sub

How do I paste my data and then have the code delete column G without deleting anything else? What am I doing wrong?

 

[ranman256]

you could try:

Sub Macro1()
Columns("G:G").Select
Selection.clearcontents
End Sub

 

[Justinian]

How do I combine the code to paste and delete column G in one macro?

 

[Justinian]

Anyone? I feel like this is s simple solution but I cannot figure it out.

 

[Fluff]

Do you have any merged cells?

 

[Justinian]

No, sir.

 

[Fluff]

Any other macros, especially event code?

 

[Justinian]

Yes, I have four total buttons each assigned a macro.

- Button 1 pastes copied data from an external database
- Button 2 removes unwanted names from the report
- Button 3 Formats the data by removing a few unwanted columns and adding front colors
- Button 4 e-mails the workbook to my recipients

Would it be easier if I posted the workbook?

 

[Fluff]

Yes I think it would.

 

[SpillerBD]

How do I combine the code to paste and delete column G in one macro?

Use the CALL procedure

SUB Cpy_Pste()
CALL  ModuleName.Paste_Copied_Data
CALL ModuleName.[COLOR=#333333]Macro1[/COLOR]
End Sub