Running 1 macro on a selection of cells

Hi,

I'm trying to create an invoicing system with macros that allows me to simply select with the mouse, about 10 or so people from a list on 1 worksheet and run a macro/button that will:
-Insert their details onto the invoice worksheet.
-And either create a PDF version of the invoice or print it.

I've made a macro that allows me to do all this with one person, but not a group of people all at once.
Here's the code for just one invoice (it looks like a mess, I know! ) :

Sub SinglePDFInvoice()
'
'SinglePDFInvoice Macro
'
    ActiveCell.Offset(0, 0).Range("A1:E1").Select                           'Insert Member Information
    Selection.Copy
    Sheets("Invoice").Select
    Range("B8").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    Range("B12").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("C11").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("B12").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("B8").Value = Range("B9").Value & " " & Range("B8").Value
    Range("B9").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    
    Range("G8").Select
    Sheets("Members").Select
    ActiveCell.Offset(0, 0).Range("F1").Select
    Selection.Copy
    Sheets("Invoice").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
                                                                            'Mark Subscription on Fees Worksheet
            Sheets("Members").Select
    If ActiveCell.Offset(0, 1).Value = "L" Then
        Worksheets("Fees").Range("F3").Value = "Yes"
    End If
    If ActiveCell.Offset(0, 1).Value = "H" Then
        Worksheets("Fees").Range("F4").Value = "Yes"
    End If
    If ActiveCell.Offset(0, 2).Value = "L" Then
        Worksheets("Fees").Range("F5").Value = "Yes"
    End If
    If ActiveCell.Offset(0, 2).Value = "H" Then
        Worksheets("Fees").Range("F6").Value = "Yes"
    End If
                                
                                                                            'Mark Competition Entries on Fees Worksheet
    If ActiveCell.Offset(0, 3).Value = "L" Then
        Worksheets("Fees").Range("F11").Value = "Yes"
    End If
    If ActiveCell.Offset(0, 3).Value = "H" Then
        Worksheets("Fees").Range("F12").Value = "Yes"
    End If
    If ActiveCell.Offset(0, 4).Value = "L" Then
        Worksheets("Fees").Range("F13").Value = "Yes"
    End If
    If ActiveCell.Offset(0, 4).Value = "H" Then
        Worksheets("Fees").Range("F14").Value = "Yes"
    End If
    If ActiveCell.Offset(0, 5).Value = "H" Then
        Worksheets("Fees").Range("F15").Value = "Yes"
    End If
    If ActiveCell.Offset(0, 6).Value = "H" Then
        Worksheets("Fees").Range("F16").Value = "Yes"
    End If

    Sheets("Invoice").Select
    Range("B14").Select
                            'Select Subscription
    Sheets("Fees").Select
    Range("A3").Select
                            'Insert Subscription
    Sheets("Fees").Select
        Worksheets("Invoice").Select
    For Each CompEntered In Worksheets("Fees").Range("F3:F6")
        If CompEntered.Value = "Yes" Then
            ActiveCell.Value = CompEntered.Offset(0, -1).Value
            ActiveCell.Offset(0, 5).Value = CompEntered.Offset(0, -3).Value
            ActiveCell.Offset(1, 0).Select
        End If
    Next CompEntered
                            'Select Competition
    Sheets("Fees").Select
    Range("A11").Select
                            'Insert Competition
   Sheets("Fees").Select
        Worksheets("Invoice").Select
    For Each CompEntered In Worksheets("Fees").Range("F11:F16")
        If CompEntered.Value = "Yes" Then
            ActiveCell.Value = CompEntered.Offset(0, -1).Value
            ActiveCell.Offset(0, 5).Value = CompEntered.Offset(0, -2).Value
            ActiveCell.Offset(1, 0).Select
        End If
    Next CompEntered
                            'Create PDF
    Sheets("Invoice").Select
    Range("B14").Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "MkDir Invoices" & ActiveSheet.Range("G10").Value & " " & ActiveSheet.Range("B8").Value & " " & ActiveSheet.Range("G8").Value & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, to:=1, _
        OpenAfterPublish:=True

End Sub

Any help will be greatly appreciated!!!! Thanks!