I have a list of Employee Numbers and I have created a sheet that counts and adds the number, of reviews that have been done with this and I created a button that adds a new line and formats it I just need a formula that will grow by one row every time I press the button, here is the Module I've made so far, let me know if you need me to add the sheet I can if needed.
Sub Add_Line()
'Selects DMs sheet
Sheets("Richard").Activate
'Selects the Last 2 Rows of sheet
Range("Total_Month_R").Select
'Cuts that and moves it down one
Range("Total_Month_R").Cut Destination:=ActiveCell.Offset(1, 0)
'Every thing from here down is to add the Borders
Range("Total_Month_R").Select
ActiveCell.Offset(-1, 0).Borders.LineStyle = xlContinuous
ActiveCell.Offset(-1, 1).Borders.LineStyle = xlContinuous
ActiveCell.Offset(-1, 2).Borders.LineStyle = xlContinuous
ActiveCell.Offset(-1, 3).Borders.LineStyle = xlContinuous
ActiveCell.Offset(-1, 4).Borders.LineStyle = xlContinuous
ActiveCell.Offset(-1, 5).Borders.LineStyle = xlContinuous
ActiveCell.Offset(-1, 6).Borders.LineStyle = xlContinuous
ActiveCell.Offset(-1, 7).Borders.LineStyle = xlContinuous
ActiveCell.Offset(-1, 8).Borders.LineStyle = xlContinuous
ActiveCell.Offset(-1, 9).Borders.LineStyle = xlContinuous
ActiveCell.Offset(-1, 10).Borders.LineStyle = xlContinuous
ActiveCell.Offset(-1, 11).Borders.LineStyle = xlContinuous
ActiveCell.Offset(-1, 12).Borders.LineStyle = xlContinuous
End Sub
Bookmarks