Macro to combine weekend date data and delete previous data
===

I have data over 4 columns with the first columns "A" as a date column then the following columns "B,C,D" as data. I am trying to create a macro that will search for the dates that are weekends and add them to Monday's data then delete the weekend date and data from the overall data. This is my code so far:

    Sub NamedRange()
    
    Dim Rng1 As Range
    Dim newDate As Integer
    Dim NumberOfRows As Range
    Dim MyRange As Range
    Dim lastRow2 As Variant
    Set Rng1 = Sheets("Sheet1").Range("A1:A20")
    
    
    Dim date1 As String
    Dim dat As Date
    Dim newPrice As Double
    
       
    Set RgSales = Range("MyRange")
    For i = 1 To RgSales.Rows.Count
    For j = 1 To RgSales.Columns.Count
    
    dat = RgSales.Cells(i, j)
    
    date1 = WeekdayName(Weekday(dat))
        If (date1 = "Saturday" Or date1 = "Sunday") Then
            newDate = (RgSales.Cells(i + 1, j + 1).Value) + (RgSales.Cells(i, j + 1).Value)
            RgSales.Cells(i + 1, j + 1).Value = newDate
            newPrice = (RgSales.Cells(i + 1, j + 2).Value) + (RgSales.Cells(i, j + 2).Value)
            RgSales.Cells(i + 1, j + 2).Value = newPrice
            RgSales.Cells(i, j).Select
            Selection.Delete
            RgSales.Cells(i, j + 1).Select
            Selection.Delete
            RgSales.Cells(i, j + 2).Select
            Selection.Delete
    End If
        Next j
        Next i
    End Sub

I am having problems with the Range, I just want it to end on the last row of data, and after the macro is run delete all the 
    
