Macro that creates invoices - Please help!!!!

I am trying to make a macro that takes the names and details of clients from the data, then creates a separate PDF invoice for each client and emails it to them using outlook ( or any email server for that matter)
I got the template for an invoice. I also watched a video on youtube that showed how to make invoices from excel and how to feed raw data into an invoice template. However, I am pretty much lost after that and the video is of no help either. I am looking for help regarding:

"How to make a separate PDf invoice for each client and email it to them." Here's my code:

Public idk()


'First we define a few variables to capture data from our Excel worksheet
Dim customername As String
Dim customeraddress As String
Dim invoicenumber As Long
Dim r As Long
Dim mydate As String
Dim path As String
Dim myfilename As String

'our last row of data in the worksheet is defined
lastrow = Sheets("CustomerDetails").Range("A" & Rows.Count).End(xlUp).Row

' we start at row 2 since the first row contains headers
r = 2

'Looping process starts
For r = 2 To lastrow

'If the value under the header ‘Note’ is done then the data in the row is not processed and jump to the label next row

'we map excel worksheet data to the variables

customername = Sheets("CustomerDetails").Cells(r, 1).Value
customeraddress = Sheets("CustomerDetails").Cells(r, 2).Value
customercity = Sheets("CustomerDetails").Cells(r, 3).Value
customerstate = Sheets("CustomerDetails").Cells(r, 4).Value
customerzip = Sheets("CustomerDetails").Cells(r, 5).Value
invoicenumber = Sheets("CustomerDetails").Cells(r, 6).Value
invoicedate = Sheets("CustomerDetails").Cells(r, 7).Value
phone = Sheets("CustomerDetails").Cells(r, 8).Value
Email = Sheets("CustomerDetails").Cells(r, 9).Value
MonthlyPayment = Sheets("CustomerDetails").Cells(r, 10).Value
discount = Sheets("CustomerDetails").Cells(r, 11).Value
PolicyNumber = Sheets("CustomerDetails").Cells(r, 12).Value


Application.DisplayAlerts = False
ActiveWorkbook.Sheets("BasicInvoice").Activate


' now we map the variables to the invoice worksheet data
ActiveWorkbook.Sheets("BasicInvoice").Range("C8").Value = customername
ActiveWorkbook.Sheets("BasicInvoice").Range("C9").Value = customeraddress
ActiveWorkbook.Sheets("BasicInvoice").Range("C9").Value = customercity
ActiveWorkbook.Sheets("BasicInvoice").Range("G8").Value = phone
ActiveWorkbook.Sheets("BasicInvoice").Range("G10").Value = Email
ActiveWorkbook.Sheets("BasicInvoice").Range("i14").Value = MonthlyPayment

'Make a PDF of the Invoice
ChDir "C:\Users\Akhtar\Desktop"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\Akhtar\Desktop\Experiment", OpenAfterPublish:=True




'our label next row. Labels have a colon after their name

Nextrow:

Next r


End Sub




With this code, I am only able to make one PDF invoice. I need a way to tell excel that I want a separate invoice for all the clients listed.
IDK if I am explaining this well. If you're confused let me know.

I have attached my excel file as well

Here's a link of the video i mentioned above: http://www.exceltrainingvideos.com/u...ting-with-vba/

Hi akhtar_shah

Make a unique of each customers so u can verify easily.

Public Sub idk()
    'First we define a few variables to capture data from our Excel worksheet
    Dim customername As String
    Dim customeraddress As String
    Dim invoicenumber As Long
    Dim r As Long
    Dim mydate As String
    Dim path As String
    Dim myfilename As String
    'our last row of data in the worksheet is defined
    Sheets("CustomerDetails").Select
    Range("A1").Select
    lastrow = Range(Selection, Selection.End(xlDown)).Count
    Sheets("BasicInvoice").Select
    'Range("A1").Select
    ' we start at row 2 since the first row contains headers
    r = 2
    'Looping process starts
    For r = 2 To lastrow
    'If the value under the header ‘Note’ is done then the data in the row is not processed and jump to the label nextrow
    'we map excel worksheet data to the variables
    
        ActiveSheet.Range("C8").Value = Sheets("CustomerDetails").Cells(r, 1).Value
        ActiveSheet.Range("C9").Value = Sheets("CustomerDetails").Cells(r, 2).Value
        ActiveSheet.Range("C10").Value = Sheets("CustomerDetails").Cells(r, 3).Value & ", " _
                             & Sheets("CustomerDetails").Cells(r, 4).Value & " " _
                             & Sheets("CustomerDetails").Cells(r, 5).Value
        ActiveSheet.Range("L8").Value = Sheets("CustomerDetails").Cells(r, 6).Value
        ActiveSheet.Range("L9").Value = Sheets("CustomerDetails").Cells(r, 7).Value
        ActiveSheet.Range("G8").Value = Sheets("CustomerDetails").Cells(r, 8).Value
        ActiveSheet.Range("G10").Value = Sheets("CustomerDetails").Cells(r, 9).Value
        ActiveSheet.Range("I14").Value = Sheets("CustomerDetails").Cells(r, 10).Value
        ActiveSheet.Range("K14").Value = Sheets("CustomerDetails").Cells(r, 11).Value
        ActiveSheet.Range("B14").Value = Sheets("CustomerDetails").Cells(r, 12).Value
    Application.DisplayAlerts = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:="C:\Users\Akhtar\Desktop\Experiment\" & Sheets("CustomerDetails").Cells(r, 1).Value & "_Invoice.PDF", _
        OpenAfterPublish:=True
    
    Next r


End Sub