Copy and paste (formats and formula) based on number in another cell

[Dan88]

Hello excel community. I am in need of some VBA help and hope to find some answers here.
I am attempting to copy a range of data containing yesterday's date and paste (formula and formula) above the old data. So every day i will be updating my sheet by 1 day and have the newest data pasted on top of the old data (previous day).

For example the current data below sits on A11-E14. Tomorrow i want to copy all of yesterdays' data and paste on top of the below but under line A10. The original data set may change day over day, so i think setting the date as a copy criteria is the best approach.

[TABLE="width: 140"]
<tbody>[TR]
[TD="align: right"]1/10/2018[/TD]
[TD] A[/TD]
[TD]B[/TD]
[TD]C[/TD]
[TD]D[/TD]
[/TR]
[TR]
[TD="align: right"]1/10/2018[/TD]
[TD] E[/TD]
[TD]F[/TD]
[TD]G[/TD]
[TD]H[/TD]
[/TR]
[TR]
[TD="align: right"]1/10/2018[/TD]
[TD] I[/TD]
[TD]J[/TD]
[TD]K[/TD]
[TD]L[/TD]
[/TR]
[TR]
[TD="align: right"]1/10/2018[/TD]
[TD]M[/TD]
[TD]N[/TD]
[TD]O[/TD]
[TD]P[/TD]
[/TR]
</tbody>[/TABLE]


Is there such a VBA that can help me accomplish? i tried piecing together a bunch of codes i found but not of which can be catered to how i need it to work.

MUCH MUCH appreciated.

 

[Dan88]

Actually, i found the below but i think it may need some tweaking:

as oppose to a set last 3 rows, can I get a message asking me the last "X" rows to copy starting from A11 and paste below A10?

Thanks

Sub CopyLast3UsedRows()
Dim rLast3Rows As Range

With ActiveSheet.Cells
Set rLast3Rows = .Find(What:="*", After:=.Cells(1, 1), LookIn:=xlValues, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, _
MatchCase:=False).Offset(-3, 0).Range("A1:A3").EntireRow
rLast3Rows.Copy Destination:=rLast3Rows.Offset(4, 0)
End With
End Sub