Here you go. The first one is the that won't run via the shortcut.
Sub myspectrumenrollment()
' MySpectrumEnrollmentLetter Macro
'
' Keyboard Shortcut: Ctrl+r
'
Range("B4").Select
Application.CutCopyMode = False
Selection.Cut
Sheets("Approved Enroll").Select
Selection.Offset(1, -6).Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("B5").Select
Selection.Cut
Sheets("Approved Enroll").Select
Selection.Offset(0, 1).Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("B10").Select
Selection.Cut
Sheets("Approved Enroll").Select
Selection.Offset(0, 1).Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("B11").Select
Selection.Cut
Sheets("Approved Enroll").Select
Selection.Offset(0, 1).Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("B12").Select
Selection.Cut
Sheets("Approved Enroll").Select
Selection.Offset(0, 1).Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("B13").Select
Selection.Cut
Sheets("Approved Enroll").Select
Selection.Offset(0, 1).Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("B14").Select
Selection.Cut
Sheets("Approved Enroll").Select
Selection.Offset(0, 1).Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("A4:B14").Select
Range("b14").Activate
Selection.ClearContents
Range("A4").Select
End Sub
Sub NonApprovedEnrollee()
'
' NonApprovedEnrollee Macro
'
' Keyboard Shortcut: Ctrl+i
'
Range("E4").Select
Application.CutCopyMode = False
Selection.Cut
Sheets("Non-Approved Enroll").Select
Selection.Offset(1, -6).Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("E5").Select
Selection.Cut
Sheets("Non-Approved Enroll").Select
Selection.Offset(0, 1).Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("E10").Select
Selection.Cut
Sheets("Non-Approved Enroll").Select
Selection.Offset(0, 1).Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("E11").Select
Selection.Cut
Sheets("Non-Approved Enroll").Select
Selection.Offset(0, 1).Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("E12").Select
Selection.Cut
Sheets("Non-Approved Enroll").Select
Selection.Offset(0, 1).Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("E13").Select
Selection.Cut
Sheets("Non-Approved Enroll").Select
Selection.Offset(0, 1).Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("E14").Select
Selection.Cut
Sheets("Non-Approved Enroll").Select
Selection.Offset(0, 1).Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("D4:E14").Select
Range("E14").Activate
Selection.ClearContents
Range("A4").Select
End Sub