Private Sub DataGrid2_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
If DataGrid2.Row <= 16 Or DataGrid2.Row = 20 Then
DataGrid2.AllowUpdate = False
ElseIf DataGrid2.Col = 0 Or DataGrid2.Col >= 2 Then
DataGrid2.AllowUpdate = False
ElseIf DataGrid2.Col = 1 Then
DataGrid2.AllowUpdate = True
End If
End Sub