I paid someone good money to build me this program and when I got it, it was not up to company standards. I have fixed many of the problems but am stuck in one particular area. I am a business owner and don't understand to much of the coding so any help would be appreciated.
I have the following code:
Code
Private Sub CommandButton1_Click()
'
'
Selection.SpecialCells(xlCellTypeFormulas, 16).Select
Selection.ClearContents
Range("A8").Select
Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(6, 9), _
Replace:=False, PageBreaks:=False, SummaryBelowData:=True
Application.Goto Reference:="models2"
Selection.Replace What:="Total", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="Grand", Replacement:="Total List Price", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.TextToColumns Destination:=Range("A7"), DataType:=xlFixedWidth, _
FieldInfo:=Array(0, 1)
Range("B7:E7").Select
Selection.copy
Application.Goto Reference:="R40C2"
Application.CutCopyMode = False
ActiveWindow.SmallScroll Down:=-15
Range("B7:E7").Select
Selection.copy
Application.Goto Reference:="R40C2"
Range("B8:B200").Select
Range("B200").Activate
ActiveSheet.Paste
Application.Goto Reference:="R7C7"
Application.CutCopyMode = False
Selection.copy
Application.Goto Reference:="R40C7"
Range("G8:G200").Select
Range("G200").Activate
ActiveSheet.Paste
Application.Goto Reference:="R7C1"
Selection.SpecialCells(xlCellTypeFormulas, 16).Select
Application.CutCopyMode = False
Selection.ClearContents
Range("B12").Select
Application.Goto Reference:="R7C1"
ActiveSheet.Outline.ShowLevels RowLevels:=2
Display More
I would like to how I can move the words "Total List Price" over to column "C" rather than have it displayed in column "A". If someone can please advise me as to what part of the code I must change in order to have these changes take place that would be appreciated.