[SOLVED] Run-time error '1004': Select method of Range class failed

[Capo]

Hi everyone, first time poster (as many people who are at their wit's end are, I'm sure) here. I did a search for the problem I'm having, but from the posts I found, it's kind of a vague problem, so I didn't really find a solution to what I'm having problems with. I'll give a quick rundown of what I'm trying to do, then a quick rundown of the code, then, uh, the floor is yours.

Basically, I've got a workbook with three sheets in it. One of the sheets has a lot of stuff that is dependant on information put into another sheet. For example, customer name, different quantities ordered, measurements, etc. The second sheet does calculations on that, and makes a "customer info"/"work order" type sheet. My task is to create a "Save" button that takes the second sheet, copies it into a new workbook, and saves it as one of the field names. It needs to be just the data/formatting copied over, and JUST that one sheet.

I'm also to have the original file (the one that has the Save button) clear the first sheet, where the data gets entered, not calculated.



So. Here's my entire code for the Save button. It's probably horribly sloppy and completely inefficient, but hey, that's why I'm posting here, right?

Private Sub cmdSave_Click()
 
    Dim SavePath As String
    Dim SaveFile As String
 
    Range("A1:G47").Select
    Selection.Copy
    Sheets("Customer").Activate
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Columns("A:G").EntireColumn.AutoFit
    Sheets(Array("Sheet2", "Sheet3")).Select
    Sheets("Sheet3").Activate
    Application.CutCopyMode = False
    ActiveWindow.SelectedSheets.Delete
    Sheets("Sheet1").Select
    Sheets("Sheet1").Name = "Procedures"
    SavePath = "N:\Procedures\Customer Info\"
    SaveFile = Range("G1")
    ActiveWorkbook.SaveAs (SavePath & SaveFile & ".xls")
    ActiveWindow.Close
    [b]Range( _
        "B1,G1,B2,B3,G3,B5,B6,B7,B8,I5,I6,I7,I8,I9,G13,G15,G17,G19,B13,B14,B15,B16,B19,B20,B21" _
        ).Select[/b]
    Range("B21").Activate
    Selection.ClearContents
End Sub

The problem appears with the bolded line. I'm not sure why, as when I created a macro, and ran through this step by step, that's what I got.

HELP ME!!!!!!!!!!

(Please.)