Instead of inserting a line at row 7 every time and inserting a data entry, I really wanted this macro to begin recording the data from line 7 downward so that the newest data entry appears on the bottom line instead of the top. Any suggestions?
Application.ScreenUpdating = False
Sheets("Template"
.Select
Rows("7:7"
.Select
Selection.Insert Shift:=xlDown
Range("B1
1"
.Select
Selection.Copy
Range("B7"
.Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("YC STATUS"
.Select
ActiveWindow.LargeScroll Down:=2
Range("C63"
.Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown
Sheets("Template"
.Select
Range("B7"
.Select
Selection.Copy
Sheets("YC STATUS"
.Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.ScrollRow = 1
Sheets("REQUEST SHEET"
.Select
Range("F26:G26,F24:G24,F22:G22,F20:G20,F18:G18,C16:K16,C13:K13,C10:K10,C7:K7,J18"
. _
Select
Range("C7"
.Activate
Application.CutCopyMode = False
Selection.ClearContents
Range("C7"
.Select
Application.ScreenUpdating = True
End Sub
Application.ScreenUpdating = False
Sheets("Template"
Rows("7:7"
Selection.Insert Shift:=xlDown
Range("B1
Selection.Copy
Range("B7"
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("YC STATUS"
ActiveWindow.LargeScroll Down:=2
Range("C63"
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown
Sheets("Template"
Range("B7"
Selection.Copy
Sheets("YC STATUS"
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.ScrollRow = 1
Sheets("REQUEST SHEET"
Range("F26:G26,F24:G24,F22:G22,F20:G20,F18:G18,C16:K16,C13:K13,C10:K10,C7:K7,J18"
Select
Range("C7"
Application.CutCopyMode = False
Selection.ClearContents
Range("C7"
Application.ScreenUpdating = True
End Sub