Hi all,

I've tested on the individual macros and they can run well. However, is it possible to combine both recordings and vba codes together in one Module that runs in one macro?

Let's say for example I want to run one macro that does all the following:

1) Macro that renames and insert new tab (Macro Recording)

Sub Macro1()
'
    Sheets("Sheet1").Select
    Sheets("Sheet1").Name = "Log"
    Sheets("Sheet2").Select
    Sheets("Sheet2").Name = "SE"
    Sheets("Sheet3").Select
    Sheets("Sheet3").Name = "SR"
    Sheets("SR").Select
    Sheets.Add
    Sheets("Sheet4").Select
    Sheets("Sheet4").Move After:=Sheets(4)
    Sheets("Sheet4").Select
    Sheets("Sheet4").Name = "Data"
    Range("E28").Select
End Sub
2) Macro that finds and highlights the String 'ERROR' and 'UNKNOWN' in the 'Log' tab/worksheet. (Macro Recording)

Sub FindAndHighlight(SearchData As Variant, SearchRange As Range, HighlightColor As Long)

   Dim FirstAddress As String
   Dim SearchCell As Range
   Dim SrcWks As Worksheet

     Set SrcWks = Worksheets(SearchRange.Parent.Name)
     Set SearchCell = SearchRange.Find(What:=SearchData, After:=SearchRange.Cells(1, 1), _
                        LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByColumns, _
                        SearchDirection:=xlNext, MatchCase:=False)
                        
     If Not SearchCell Is Nothing Then
        FirstAddress = SearchCell.Address
          Do
              SearchCell.Cells.Interior.ColorIndex = HighlightColor
              
            Set SearchCell = SearchRange.FindNext(SearchCell)
          Loop While Not SearchCell Is Nothing And SearchCell.Address <> FirstAddress
     End If
          
End Sub

Sub HighlightRisk()
  
   Dim LastRow As Long
   Dim RiskCol As Variant
   Dim RiskRange As Range
   Dim StartRow As Long
     
    RiskCol = "B"
     StartRow = 1
      With Worksheets("Log")
        LastRow = .Cells(.Rows.Count, RiskCol).End(xlUp).Row
        LastRow = IIf(LastRow < StartRow, StartRow, LastRow)
        Set RiskRange = .Range(.Cells(StartRow, RiskCol), .Cells(LastRow, RiskCol))
      End With
      
      FindAndHighlight "Unknown", RiskRange, 6      'Yellow'
      FindAndHighlight "ERROR", RiskRange, 3    'Red'
      
End Sub
3) Macro that removes unwanted columns (Macro Recording)

Sub SE()

'
    Columns("A:A").Select
    Application.CutCopyMode = False
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=True, Comma:=False, Space:=False, Other:=True, OtherChar:= _
        "|", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), _
        Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1) _
        , Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array( _
        19, 1), Array(20, 1), Array(21, 1), Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), _
        Array(26, 1), Array(27, 1), Array(28, 1), Array(29, 1), Array(30, 1), Array(31, 1), Array( _
        32, 1), Array(33, 1), Array(34, 1), Array(35, 1), Array(36, 1), Array(37, 1), Array(38, 1), _
        Array(39, 1), Array(40, 1), Array(41, 1), Array(42, 1), Array(43, 1), Array(44, 1), Array( _
        45, 1), Array(46, 1), Array(47, 1), Array(48, 1), Array(49, 1), Array(50, 1), Array(51, 1)) _
        , TrailingMinusNumbers:=True
    Cells.Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Columns("K:K").Select
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    Range("K:K,N:N").Select
    Range("N1").Activate
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 19
    ActiveWindow.ScrollColumn = 20
    Range("K:K,N:N,W:W").Select
    Range("W1").Activate
    ActiveWindow.ScrollColumn = 21
    ActiveWindow.ScrollColumn = 22
    ActiveWindow.ScrollColumn = 23
    ActiveWindow.ScrollColumn = 24
    ActiveWindow.ScrollColumn = 25
    ActiveWindow.ScrollColumn = 26
    ActiveWindow.ScrollColumn = 27
    ActiveWindow.ScrollColumn = 28
    ActiveWindow.ScrollColumn = 29
    ActiveWindow.ScrollColumn = 30
    Range("K:K,N:N,W:W,AJ:AJ,AM:AM").Select
    Range("AM1").Activate
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
    ActiveWindow.ScrollColumn = 29
    ActiveWindow.ScrollColumn = 28
    ActiveWindow.ScrollColumn = 27
    ActiveWindow.ScrollColumn = 26
    ActiveWindow.ScrollColumn = 25
    ActiveWindow.ScrollColumn = 24
    ActiveWindow.ScrollColumn = 22
    ActiveWindow.ScrollColumn = 21
    ActiveWindow.ScrollColumn = 20
    ActiveWindow.ScrollColumn = 19
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Range("A:J,L:M").Select
    Range("L1").Activate
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 13
    Range("A:J,L:M,O:V").Select
    Range("O1").Activate
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 19
    ActiveWindow.ScrollColumn = 20
    ActiveWindow.ScrollColumn = 21
    ActiveWindow.ScrollColumn = 22
    ActiveWindow.ScrollColumn = 23
    Range("A:J,L:M,O:V,X:AI").Select
    Range("X1").Activate
    ActiveWindow.ScrollColumn = 24
    ActiveWindow.ScrollColumn = 25
    ActiveWindow.ScrollColumn = 26
    ActiveWindow.ScrollColumn = 27
    ActiveWindow.ScrollColumn = 28
    ActiveWindow.ScrollColumn = 29
    ActiveWindow.ScrollColumn = 30
    ActiveWindow.ScrollColumn = 31
    ActiveWindow.ScrollColumn = 32
    ActiveWindow.ScrollColumn = 33
    ActiveWindow.ScrollColumn = 34
    Range("A:J,L:M,O:V,X:AI,AK:AL,AN:AY").Select
    Range("AN1").Activate
    Selection.Delete Shift:=xlToLeft
    Range("AN12").Select
    ActiveWindow.ScrollColumn = 32
    ActiveWindow.ScrollColumn = 31
    ActiveWindow.ScrollColumn = 30
    ActiveWindow.ScrollColumn = 29
    ActiveWindow.ScrollColumn = 28
    ActiveWindow.ScrollColumn = 27
    ActiveWindow.ScrollColumn = 25
    ActiveWindow.ScrollColumn = 23
    ActiveWindow.ScrollColumn = 22
    ActiveWindow.ScrollColumn = 20
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Rows("1:1").Select
    Selection.Delete Shift:=xlUp
    Rows("1:1").Select
    Selection.Font.Bold = True
    Cells.Select
    Selection.Interior.ColorIndex = xlNone
    Range("F1").Select
    ActiveCell.FormulaR1C1 = "SEC ID"
    Range("G1").Select
    ActiveCell.FormulaR1C1 = "SEC NO"
    Cells.Select
    Selection.ColumnWidth = 10.71
    Selection.ColumnWidth = 14.14
    Selection.ColumnWidth = 14.57
    Range("C3").Select
    Columns("C:C").ColumnWidth = 17.57
    Columns("C:C").ColumnWidth = 19.71
    Columns("C:C").ColumnWidth = 21.71
    Range("F1:G1").Select
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
    Range("D10").Select
End Sub
4) Macro that does vlookup cell across another Worksheet (VBA Code)

5) Macro that autoranges to the last row and remove formula (VBA Code)

6) Macro that does advance sorting (Macro Recording)

7) Macro that removes duplicates (VBA Code)

8) Macro that replaces numbers with texts (VBA Code)



Is it even logical if I combine all the codes together after every End Sub? Appreciate any advice. Thanks in advance!