Beginner needing help with VBA code

[FernEula]

I just started learning VBA, so I don't know the syntax very well. I have a report I need help on so I copied and paste some code to edit to get as close as I can to what I need. I ran through debugger and I know range is off because I have included by own data, and getting error. I am trying to figure out how everything works in this procedure. This is what I need to do Workbooks "Source1" and "Source2" for each cell the last column of "Source1" say (customer) I check if it exists in the last column (customer) of "Source2". I also want to add in if those match, check transaction date is less than or equal to a certain date. If YES, then copy that row to another workbook called "Target". (A3:J3) Headings, (A4:J4) data. Any help would be greatly appreciated. Thank you!

Sub Loop_Cells()
  Dim Source As Workbook, Source2 As Workbook, Target As Workbook
  Dim w As Integer, x As Integer, y As Integer
  Dim lRow As Long, lRow2 As Long
  Dim c As Range
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False
  Application.SheetsInNewWorkbook = 1
  Set Source = Workbooks.Open("C:\Reports\Source1.xlsx")
  With Source
    x = .UsedRange.Columns.Count
    .Cells(1, x + 1) = "Concate"
    lRow = .Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To lRow
      .Cells(i, x + 1) = .Cells(i, 6). & .Cells(i, 7)
    Next i
    .Columns(x + 1).NumberFormat = "0"
  End With
  Set Source2 = Workbooks.Open("C:\Reports\Source2.xlsx")
  With Source2
    y = .UsedRange.Columns.Count
    .Cells(1, y + 1) = "Concate"
    lRow2 = .Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To lRow2
      .Cells(i, y + 1). = .Cells(i, 48) & .Cells(i, 3)
    Next i
    .Columns(y + 1).NumberFormat = "0"
  End With
  Set Target = Workbooks.Add
  With Target.Sheets(1)
    .Name = "ExistCells"
    w = 1
    For Each c In Source.Sheets(1).UsedRange.Columns(x + 1).Cells
      For j = 2 To lRow2
        If c.Value = Source2.Sheets(1).Cells(j, y + 1) Then
          .Cells(w, 1).Value = Source2.Sheets(1).Cells(j, 48)
          .Cells(w, 2).Value = Source2.Sheets(1).Cells(j, 3)
          .Cells(w, 3).Value = Source2.Sheets(1).Cells(j, 27)
          .Cells(w, 4).Value = Source2.Sheets(1).Cells(j, 41)
          w = w + 1
          Exit For
        End If
      Next j
    Next c
  End With
  Source.Close SaveChanges:=False
  Source2.Close SaveChanges:=False
  Target.SaveAs Filename:="C:\Reports\Target.xlsx", _
                FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
  Application.ScreenUpdating = True
  Application.DisplayAlerts = True
End Sub