Combining macros to be one and run in a specific order

Hey, I'm novice with VBA so I'm not familiar with combing macros to be one and run in a specific order. This is what I was trying.

Sub OneButton()

Dim FoundCell As Range
Dim myWords As Variant
Dim wks As Worksheet
Dim iCtr As Long

myWords = Array("Internal meeting")
Set wks = ActiveSheet
With wks
With .Range("G:G")
For iCtr = LBound(myWords) To UBound(myWords)
Do
Set FoundCell = .Cells.Find(What:=myWords(iCtr), _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
lookat:=xlPart, _
searchorder:=xlByRows, _
searchdirection:=xlNext, _
MatchCase:=False)
If FoundCell Is Nothing Then
Exit Do
Else
FoundCell.EntireRow.Delete
End If
Loop
Next iCtr
End With
End With




Dim FoundCell As Range
Dim myWords As Variant
Dim wks As Worksheet
Dim iCtr As Long

myWords = Array("IBM Global Services", "Printing Systems", "STG", "TotalStorage")
Set wks = ActiveSheet
With wks
With .Range("D:D")
For iCtr = LBound(myWords) To UBound(myWords)
Do
Set FoundCell = .Cells.Find(What:=myWords(iCtr), _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
lookat:=xlPart, _
searchorder:=xlByRows, _
searchdirection:=xlNext, _
MatchCase:=False)
If FoundCell Is Nothing Then
Exit Do
Else
FoundCell.EntireRow.Delete
End If
Loop
Next iCtr
End With
End With




Dim FoundCell As Range
Dim myWords As Variant
Dim wks As Worksheet
Dim iCtr As Long

myWords = Array("Closed", "Canceled", "Requested")
Set wks = ActiveSheet
With wks
With .Range("F:F")
For iCtr = LBound(myWords) To UBound(myWords)
Do
Set FoundCell = .Cells.Find(What:=myWords(iCtr), _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
lookat:=xlPart, _
searchorder:=xlByRows, _
searchdirection:=xlNext, _
MatchCase:=False)
If FoundCell Is Nothing Then
Exit Do
Else
FoundCell.EntireRow.Delete
End If
Loop
Next iCtr
End With
End With



Dim RW As Long, LR As Long

LR = Range("P" & Rows.Count).End(xlUp).Row

For RW = 2 To LR
    Select Case Range("P" & RW).Value
        Case "Enroll"
            Range("G" & RW).Value = "OPEN POT"
        Case "Nominate"
            Range("G" & RW).Value = "OPEN POT"
    End Select
Next RW

End Sub

I've also tried this method, but this isn't working either.

Sub One()
    Call DeleteInternalMeetings
    Call ShowSoftwareBrands
    Call ShowConfirmedStatus
    Call OPENPOT
End Sub

Thanks in advance!