Private Sub Worksheet_Change(ByVal Target As Range)
'Modified 9/13/2019 10:05:27 AM EDT
If Target.Cells.CountLarge > 1 Or IsEmpty(Target) Then Exit Sub
Application.EnableEvents = False
If Target.Column = 2 And IsNumeric(Target.Value) Then Rows(Target.Row).Offset(1).Resize(Target.Value - 1).Insert Shift:=xlDown
Application.EnableEvents = True
End Sub
04/08/2019 | 3 | 1 | BRISTOL CITY A | 3 | 1 | HERNANDEZ | |||
BAMFORD | |||||||||
HARRISON | |||||||||
10/08/2019 | 1 | 1 | NOTTINGHAM FOREST H | 1 | 1 | HERNANDEZ | |||
17/08/2019 | 2 | 0 | WIGAN A | 3 | 1 | BAMFORD | |||
BAMFORD | |||||||||
21/08/2019 | 1 | 0 | BRENTFORD H | 3 | 1 | NKETIAH | |||
24/08/2019 | 3 | 0 | STOKE CITY A | 3 | 1 | DALLAS | |||
ALIOSKI | |||||||||
BAMFORD | |||||||||
31/08/2019 | 0 | 1 | SWANSEA H | 0 | 1 | ||||