Pasting text into a cell that has Upper Case code for the worksheet

I have figured out the VBA code to require text to be upper case if it is typed into the range of cells. The problem I am having is when someone copy/cuts and then pastes that text into the cell it will not make the code run. I am missing something somewhere.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A1:A5")) Is Nothing Then
        Application.EnableEvents = False
        Target.Value = UCase(Target.Value)
        Application.EnableEvents = True
    ElseIf Not Intersect(Target, Range("B1:B5")) Is Nothing Then
        Application.EnableEvents = False
        Target.Value = Application.Proper(Target.Value)
        Application.EnableEvents = True
    End If
End Sub

any help is greatly appreciated.