Hi.
I have some VBA's codes, some I found online that works for what I need.
I have 3 separate ones that I run, but I would like to have it all as ONE.
I copied all together, but it gets messy and it does not do what each one does separately.
How do I do that?


CODE 1

Sub CopyFromWorksheets()
Dim wrk As Workbook
Dim sht As Worksheet
Dim trg As Worksheet
Dim rng As Range
Dim colCount As Integer
Set wrk = ActiveWorkbook
For Each sht In wrk.Worksheets

If sht.Name = "Master" Then
MsgBox "There is a worksheet called as 'Master'." & vbCrLf & _
"Please remove or rename this worksheet since 'Master' would be" & _
"the name of the result worksheet of this process.", vbOKOnly + vbExclamation, "Error"
Exit Sub
End If
Next sht

Application.ScreenUpdating = False

Set trg = wrk.Worksheets.Add(After:=wrk.Worksheets(wrk.Worksheets.Count))

trg.Name = "Master"

Set sht = wrk.Worksheets(1)
colCount = sht.Cells(1, 255).End(xlToLeft).Column

With trg.Cells(1, 1).Resize(1, colCount)
.Value = sht.Cells(1, 1).Resize(1, colCount).Value

.Font.Bold = True
End With

For Each sht In wrk.Worksheets

If sht.Index = wrk.Worksheets.Count Then
Exit For
End If

Set rng = sht.Range(sht.Cells(2, 1), sht.Cells(65536, 1).End(xlUp).Resize(, colCount))

trg.Cells(65536, 1).End(xlUp).Offset(1).Resize(rng.Rows.Count, rng.Columns.Count).Value = rng.Value
Next sht

trg.Columns.AutoFit

Application.ScreenUpdating = True
End Sub


CODE 2

Sub sbVBS_To_Delete_Specific_Columns()
Sheets("Master").Range("A:A,B:B,C:C,N:O,R:R,T:Y,AB:AD,AG:AG,AQ:AU").EntireColumn.Delete
End Sub

CODE 3

Sub Format_Master()
Columns("B:B").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("L:L").Select
Selection.Cut Destination:=Columns("B:B")
Range("B1").Select
ActiveCell.FormulaR1C1 = "SDt"
Columns("L:L").Select
Selection.Delete Shift:=xlToLeft
End Sub



Thanks
Jake