So I did some more work on the code and the questions I outlined above.
Here is the new code so far:
Sub Recommendation()
Dim last4 As String
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set ws1 = ThisWorkbook.Worksheets("Recommendation")
Set ws2 = ThisWorkbook.Worksheets("Recommendation")
Sheets("Recommendation").Select
last4 = ActiveSheet.Cells(Rows.Count, "C").End(xlUp).Row + 1
Range("C2:I5").Select
Selection.Copy
Range("C" & last4).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Recommendation").Select
Range("A1").Select
Selection.End(xlDown).Offset(-3, 0).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Selection.Offset(4, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Data Table").Select
Range("A1").Select
Selection.End(xlDown).Select
Selection.Copy
Sheets("Recommendation").Select
Range("A1").Select
Selection.End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Selection.End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Selection.End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Selection.End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
It's still pretty sloppy and I was hoping someone could write it a little more efficiently. I still can't figure out how to copy the formula from the previous 4 rows in column J down to the newly pasted 4 rows in column J.
Thank you to anyone who can help me out here