These two examples set the bottom margin of Sheet1 to 0.5 inch (36 points).
Worksheets("Sheet1").PageSetup.BottomMargin = _
Application.InchesToPoints(0.5)
Worksheets("Sheet1").PageSetup.BottomMargin = 36
This example displays the current setting for the bottom margin on Sheet1.
marginInches = Worksheets("Sheet1").PageSetup.BottomMargin / _
Application.InchesToPoints(1)
MsgBox "The current bottom margin is " & marginInches & " inches"