Almost works 1

[futbuk]

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&quot.Select
Rows("7:7&quot.Select
Selection.Insert Shift:=xlDown
Range("B11&quot.Select
Selection.Copy
Range("B7&quot.Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("YC STATUS&quot.Select
ActiveWindow.LargeScroll Down:=2
Range("C63&quot.Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown
Sheets("Template&quot.Select
Range("B7&quot.Select
Selection.Copy
Sheets("YC STATUS&quot.Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.ScrollRow = 1
Sheets("REQUEST SHEET&quot.Select
Range("F26:G26,F24:G24,F22:G22,F20:G20,F18:G18,C16:K16,C13:K13,C10:K10,C7:K7,J18&quot. _
Select
Range("C7&quot.Activate
Application.CutCopyMode = False
Selection.ClearContents
Range("C7&quot.Select
Application.ScreenUpdating = True
End Sub

 

[MichaelRed]

This is the MS ACCESS VBA forum, not the Excel, or generic VBA forum.

MichaelRed
m.red@att.net

Searching for employment in all the wrong places

 

[futbuk]

thanks Red lol, 1 of these days I'll learn to read