<div>
Hi, 
 
pls try
<pre><code class="code-10 nolinks" id="code-20-42509509-1">Sub macro()
Range(&quot;D1&quot;).Copy Range(&quot;E1&quot;)
Range(&quot;E1&quot;).FormulaR1C1 = &quot;DaysSinceLastCall&quot;
Range(&quot;E1&quot;).EntireColumn.AutoFit
For Each c In Range(Range(&quot;A2&quot;), Range(&quot;A&quot; &amp; Rows.Count))
 If c.Offset(-1) = c Then
 c.Offset(, 4) = c.Offset(0, 1) - c.Offset(-1, 1)
 Else
 c.Offset(, 4) = 0
 End If
Next
End Sub
</code></pre>
Regards
</div>

<div>
Hi, 
 
I'll suggest a combo of query and VBA solution:
<pre><code class="code-10 nolinks" id="code-20-42509544-1">Option Explicit

Public Sub getData()
 Const adOpenStatic As Integer = 3
 
 Dim wb As Excel.Workbook
 Set wb = ThisWorkbook

 Dim cn As Object '// ADODB.Connection
 Set cn = CreateObject(&quot;ADODB.Connection&quot;)
 cn.ConnectionString = getConnectionString(wb.FullName)
 cn.Open
 
 Dim SQL As String
 SQL = vbNullString
 SQL = SQL &amp; &quot;SELECT originatordn,&quot; &amp; vbCrLf
 SQL = SQL &amp; &quot; MAX([Date]) AS [Date],&quot; &amp; vbCrLf
 SQL = SQL &amp; &quot; MAX([Month]) AS [Month],&quot; &amp; vbCrLf
 SQL = SQL &amp; &quot; MAX([year]) AS [Year]&quot; &amp; vbCrLf
 SQL = SQL &amp; &quot;FROM [Example Data$]&quot; &amp; vbCrLf
 SQL = SQL &amp; &quot;GROUP BY originatordn;&quot;
 
 Dim rs As Object '// ADODB.Recordset
 Set rs = CreateObject(&quot;ADODB.Recordset&quot;)
 rs.Open SQL, cn, adOpenStatic
 
 Dim ws As Excel.Worksheet
 Set ws = wb.Worksheets(&quot;Example Result&quot;)
 copyHeaders rs, ws
 doFormatting ws
 
 Dim rng As Excel.Range
 Set rng = ws.Range(&quot;A2&quot;)
 rng.CopyFromRecordset rs
 
 rs.Close
 Set rs = Nothing
 cn.Close
 Set cn = Nothing
 
 computedays ws
 Set ws = Nothing
 Set wb = Nothing
End Sub

Private Function getConnectionString(ByVal path As String) As String
 getConnectionString = vbNullString
 getConnectionString = getConnectionString &amp; &quot;Provider=Microsoft.ACE.OLEDB.12.0;&quot;
 getConnectionString = getConnectionString &amp; &quot;Data Source=&quot; &amp; path &amp; &quot;;&quot;
 getConnectionString = getConnectionString &amp; &quot;Extended Properties=&quot;&quot;Excel 12.0 Macro;HDR=YES&quot;&quot;;&quot;
End Function

Private Sub copyHeaders(ByRef rs As ADODB.Recordset, ByRef ws As Excel.Worksheet)
 Dim rng As Excel.Range
 Set rng = ws.Range(&quot;A1&quot;)
 
 Dim field As ADODB.field
 For Each field In rs.Fields
 rng.Value = field.Name
 Set rng = rng.Offset(columnoffset:=1)
 Next
 rng.Value = &quot;DaysSinceLastCall&quot;
 Set rng = Nothing
End Sub

Private Sub computedays(ByRef ws As Excel.Worksheet)
 Dim rng As Excel.Range
 
 Set rng = ws.Range(&quot;D2&quot;)
 While rng.Value
 rng.Offset(columnoffset:=1).FormulaR1C1 = &quot;=DAYS(NOW(),RC[-3])&quot;
 Set rng = rng.Offset(rowoffset:=1)
 Wend
 Set rng = Nothing
End Sub

Private Function doFormatting(ByRef ws As Excel.Worksheet)
 Dim rng As Excel.Range
 Set rng = ws.Range(&quot;B:B&quot;)
 
 rng.NumberFormat = &quot;m/d/yyyy&quot;
 Set rng = Nothing
End Function
</code></pre>
PS: I wrote this within a workbook, it is easilly transferable to Ms Access. 
don't forget to late bind excel library.
</div>

<div>
scratch my answer, missed Something.
</div>

Example_DaysSinceLastCall.xlsm

<div>
<div class="content wysiwyg-content">
In the attached worksheet I have two tabs. The first tab is example data I am working with. The second tab is the result I am looking for. The data lives in a MS Access 2016 database. 
 
I worked with a expert on this forum seeking a query solution. However he recommended VBA as a solution. 
 
What I need to do is to loop the sorted table in VBA and then, record by record, find the count of days between each originatordn and the previous record. 
Then append the record to a new table. 
 
The goal is to calculate the days since last call for every originatordn. 
 
Example Result: 
originatordn &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Date &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Month &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Year &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;DaysSinceLastCall 
2053843380 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;01-Jan-17 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;1 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;2017 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;0 
2053843380 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;03-Jan-17 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;1 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;2017 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;2 
2053843380 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;05-Jan-17 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;1 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;2017 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;2 
2053843380 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;08-Jan-17 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;1 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;2017 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;3 
2053843380 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;18-Jan-17 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;1 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;2017 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;10 
2053843380 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;28-Jan-17 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;1 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;2017 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;10 
<a href="https://filedb.experts-exchange.com/incoming/2018/03_w12/1290302/Example_DaysSinceLastCall.xlsx" target="_blank" class="file-inline" title="Example DaysSinceLastCall (136 KB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>Example_DaysSinceLastCall.xlsx</a>
</div>
</div>

Example_DaysSinceLastCall.xlsx

In the attached worksheet I have two tabs. The first tab is example data I am working with. The second tab is the result I am looking for. The data lives in a MS Access 2016 database.

I worked with a expert on this forum seeking a query solution. However he recommended VBA as a solution. 

What I need to do is to loop the sorted table in VBA and then, record by record, find the count of days between each originatordn and the previous record. 
Then append the record to a new table.

The goal is to calculate the days since last call for every originatordn.

Example Result:
originatordn	Date	Month	Year	DaysSinceLastCall
2053843380	01-Jan-17	1	2017	0
2053843380	03-Jan-17	1	2017	2
2053843380	05-Jan-17	1	2017	2
2053843380	08-Jan-17	1	2017	3
2053843380	18-Jan-17	1	2017	10
2053843380	28-Jan-17	1	2017	10

VBA: Find the number of days that occured between dates in records. Example Attached

Visual Basic for Applications (VBA) enables building user-defined functions (UDFs), automating processes and accessing Windows API and other low-level functionality through dynamic-link libraries (DLLs). VBA is closely related to Visual Basic and uses the Visual Basic Runtime Library, but it can normally only run code within a host application rather than as a standalone program. It can, however, be used to control one application from another via OLE Automation. VBA is built into most Microsoft Office applications.