Hello Everyone,

I am trying to build a issue tracker template for our IT team. One of the features in this template is, once a user enters a line item, the most recent line item should be e-mailed to the IT team. I am using the code shown below for this purpose

I would like to keep the selection range (columns B thru H and the most recently entered row) dynamic. For this, I am using a variable for the most recently entered row number (which I have stored in cell A2 on the active sheet). However, I cannot get the macro to select the most recent range.

I would appreciate any help you can offer.

Thanks,


Sub EMailIssue()
    Dim Maxrow As Integer
    Dim Sendrng As Range
    
    
    If MsgBox("Do you want to send the Email ?", vbOKCancel, _
    "Email Confirmation") = vbCancel Then Exit Sub

    Maxrow = Worksheets("Issue Tracker Log").Range("A2")

    Set Sendrng = Worksheets("Issue Tracker Log").Range("B" & Maxrow).Offset (0 , 5)

    With Sendrng

        .Parent.Select
        
        .Select

        ActiveWorkbook.EnvelopeVisible = True
        With .Parent.MailEnvelope

                .Introduction = "Test mail."

                With .Item
                .To = Worksheets("DDs").Range("N5")
                .CC = Worksheets("DDs").Range("N6")
                .Subject = "Test subject"
                .Send
            End With

        End With

    End With

End Sub