VBA Data Extract

Hi, I wonder whether someone may be able to help me please.

I was very fortunate to receive some help from @AB33 in putting together the script below:

Sub Extract()
    Dim i As Long, j As Long, m As Long, strProject As String, RDate As Date, RVal As Single
    Dim BlnProjExists As Boolean, DI As Worksheet, EH As Worksheet
    Application.ScreenUpdating = 0
    
Set DI = Sheets("Direct Activities")
Set EH = Sheets("Enhancements")

 With Sheets("AllData").Range("E3")
    For i = 1 To .CurrentRegion.Rows.Count - 1
        strProject = .Offset(i, 0)
        RDate = .Offset(i, 3)
        RVal = .Offset(i, 4)
     If InStr(.Offset(i, 0), "Enhancements") > 0 Then
            strProject = .Offset(i, 0)

        With EH.Range("B1")
            If .CurrentRegion.Rows.Count = 1 Then
                .Offset(1, 0) = strProject
                j = 1
            Else
                BlnProjExists = False
                    For j = 1 To .CurrentRegion.Rows.Count - 1
                        If .Offset(j, 0) = strProject Then
                            BlnProjExists = True
                            Exit For
                        End If
                    Next j
                        If BlnProjExists = False Then
                           .Offset(j, 0) = strProject
                        End If
            End If
            Select Case Format(RDate, "mmm yy")
                Case "Apr 13"
                    m = 1
                Case "May 13"
                    m = 2
                Case "Jun 13"
                    m = 3
                Case "Jul 13"
                    m = 4
                Case "Aug 13"
                    m = 5
                Case "Sep 13"
                    m = 6
                Case "Oct 13"
                    m = 7
                Case "Nov 13"
                    m = 8
                Case "Dec 13"
                    m = 9
                Case "Jan 14"
                    m = 10
                Case "Feb 14"
                    m = 11
                Case "Mar 14"
                    m = 12
            End Select
              .Offset(j, m) = .Offset(j, m) + RVal
        End With

       ElseIf InStr(.Offset(i, 0), "DIR") > 0 And RVal > 0 Then
        strProject = .Offset(i, 0)
        With DI.Range("B1")
            If .CurrentRegion.Rows.Count = 1 Then
                .Offset(1, 0) = strProject
                j = 1
            Else
                BlnProjExists = False
                For j = 1 To .CurrentRegion.Rows.Count - 1
                    If .Offset(j, 0) = strProject Then
                        BlnProjExists = True
                        Exit For
                    End If
                Next j
                    If BlnProjExists = False Then
                      .Offset(j, 0) = strProject
                    End If
            End If
            Select Case Format(RDate, "mmm yy")
                Case "Apr 13"
                    m = 1
                Case "May 13"
                    m = 2
                Case "Jun 13"
                    m = 3
                Case "Jul 13"
                    m = 4
                Case "Aug 13"
                    m = 5
                Case "Sep 13"
                    m = 6
                Case "Oct 13"
                    m = 7
                Case "Nov 13"
                    m = 8
                Case "Dec 13"
                    m = 9
                Case "Jan 14"
                    m = 10
                Case "Feb 14"
                    m = 11
                Case "Mar 14"
                    m = 12
            End Select
             .Offset(j, m) = .Offset(j, m) + RVal
        End With
     End If
    Next i
End With

 Application.ScreenUpdating = True
End Sub

The script looks at column E of the 'Source' ("AllData") sheet for two values, either "Enhancements" or "DIR". When it finds these, it then creates a unique distinct list and copies the data to column B of the applicable 'Destination' sheet (either "Enhancements" or "Direct Activities").

In addition it sums a 'Manhour' figure from column I of the 'Source' sheet and places this under the relevant monthly column heading in the 'Destination' sheet.

I'm now hoping that I may be able to change this a little by inserting two extra columns (C and D) to the 'Destination' sheets. Column C will now become the ID number and pulls the data from column F on the 'Source' sheet, and Column D will become the 'LOB' which pulls the data from column B on the 'Source' sheet. The current "Monthly" columns will then shift 2 columns to the right.

The code works perfectly, but I'm relatively new to VB, and although I understand some, I don't understand all of the code.

I've spent a few days on this, but I've not been able to find a solution. I just wondered whether someone may be able to look at this please and offer some guidance on how I may go about achieving this. If at all possible, and I hope this doesn't sound too presumptuous, but if someone could help me, could they please insert some comments into the code, because I'm keen to learn.

I appreciate that my explanation may not be particularly clear, so please find a link to my file here https://www.dropbox.com/s/2u6dvht11m...0-%20Home.xlsm. If you could please click on the button on the "Macros" page, it will extract the data to the "Enhancements" and "Direct Activities" sheets.

I have also included another sheet which is the proposed new layout.

Many thanks and kind regards