Macro to transfer row of data between sheets based on certain criteria.

I need help writing a macro to transfer a row of data from one sheet to another sheet based on certain maturity date parameters. The following is what I need done pertaining to each sheet:

Current Maturities Sheet - I need every row of data transferred from the Future Maturities Sheet to the Current Maturities Sheet for any loan maturing 60 days out from the current date.

Future Maturities - I need every row of data transferred from the Data Sheet to the Future Maturities Sheet for any loan maturing 12 months out.

*I have highlighted the column which the criteria will be based upon.

Can this be done or am I being overzealous with my thought process? I'm pretty new at even attempting VBA, so please be patient with me, thank you.

Matured Loans Spreadsheet.xlsx

Exactly 60 Days? Or 60 Days plus?

I'd prefer exactly 60 days. Is this something that may be doable?

Unfortunately I have to go until Monday so I hope this does what you want. Your idea is very doable, however, at the moment I don't have time. I did put this together and I hope it works.

Sub kmc86()

Dim rcell As Range
Dim lr As Long

Sheets("Future Maturities").Activate

lr = Cells(Rows.Count, 1).End(xlUp).Row

For Each rcell In Range("E2:E" & lr)

    If rcell.Value = Date + 60 Then
    
        rcell.EntireRow.Copy Sheets("Current Maturities").Range("A" & Rows.Count).End(3)(2)
        rcell.EntireRow.Delete shift:=xlUp
        
    End If
    
Next rcell
    

Sheets("Data").Activate

lr = Cells(Rows.Count, 1).End(xlUp).Row

For Each rcell In Range("E2:E" & lr)

    If rcell.Value = Date + 365 Then
    
        rcell.EntireRow.Copy Sheets("Future Maturities").Range("A" & Rows.Count).End(3)(2)
        rcell.EntireRow.Delete shift:=xlUp
    End If
    
Next rcell

End Sub

Sorry, I didn't initially understand the context of the question. But if it's to keep in line with the 12 month time line for the other sheet, it could be 2 months out.

I'm out of the office as well, I will check this on Monday and let you know! Thank you John.

You're welcome, hope it works.

John,

I input the code and tried running it, but to no avail no information transferred to the other sheets. In being discrete about information, I had to change the composition from the original excel file that I posted. The header contains the following: A:1 - Portfolio Manager; B:1 - Business Name; C:1 - Loan ID; D:1 - Maturity Date; E:1 - Principal Balance. Make note that I did change the rcell range from the original E2:E to D2:D. Is there something that I need to change?