Call Macros from a macro 
/////////////////////////

  Call another Macro from your macro


For example, we call a macro call two macros named, "clean" and "hide"
     from "macro1"


Sub macro1()
    call clean
    call hide
End Sub

/////////////////////////

If left cell empty-> Done
/////////////////////////

Sub ifEmptyDone()
    If IsEmpty(ActiveCell.Offset(0, -1).Value) = True Then
      MsgBox "Done"
   Else:
       
       ActiveCell.Offset(1).Select
   End If
End Sub

/////////////////////////

Move n cell down/up and m cell right/left 
/////////////////////////

    ActiveCell.Offset(n,m).Select

Rule #1: n is for up or down
         m is for left or right 
             
Rule #2: n>0 for down, n=0 for current, n<0 for up 
         m>0 for right m=0 for current, m<0 for left 

Test the following one

Sub moveNandM()
    ActiveCell.Offset(4, -3).Select
 End Sub

/////////////////////////

A set of one-line commands
/////////////////////////
Many simple commands
--------------------
  1) Select a cell            -> Range("B2").Select
  2) Select columns           -> Columns("B:F").Select
  3) Select rows              -> Rows("2:9").Select
  4) Select cell/enter value  -> Range("B10").Value = "No"
  5) value to current cell    -> ActiveCell.FormulaR1C1 = "1"
  6) Message box              -> MsgBox "Hello World!"
  7) Hide selected columns    -> Selection.EntireColumn.Hidden = True
  8) Hide selected rows       -> Selection.EntireRow.Hidden = True
  9) unhide selected columns  -> Selection.EntireColumn.Hidden = False
 10) unhide selected rows     -> Selection.EntireRow.Hidden = False
 11) call a macro             -> call MacroName
 12) move one cell below      -> ActiveCell.Offset(1).Select
 13) move one cell below      -> ActiveCell.Offset(1,0).Select
 14) move one cell up         -> ActiveCell.Offset(-1).Select
 15) move one cell up         -> ActiveCell.Offset(-1,0).Select
 16) move one cell right      -> ActiveCell.Offset(0,1).Select
 17) move one cell left       -> ActiveCell.Offset(0,-1).Select
 18) 5 down, 4 right          -> ActiveCell.Offset(5,4).Select
 19) Select  columns          -> Columns("A:P").Select
 20) Select rows              -> Columns("2:100").Select
 21) Copy from one to another -> Range("B5") = Range("A1")
 22) Copy to the current cell -> ActiveCell.FormulaR1C1 = Range("A1")

/////////////////////////