Excel VBA Workbook_SheetChange does not work with all inputs - excel

Question

If Target <> "" Then
A specific line of code makes an error here.
Error announcement is Type Mismatch.
I have a certain are in a sheet where user can write or paste numeric values without changing number formatting or cells formatting. I would like to enable all methods to input data into sheet. How I should fix the code?
Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error GoTo Err_Something
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Undo
If Target <> "" Then
' user just type value in the excel sheet
Else
' user pastes data from other unknown excel sources
Target.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
Exit Sub
Err_Something:
MsgBox Err.Description
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
FINAL SOLUTION
I tested many different variant how to fire these events, but I never found reliable solution. Therefore I made a separate Sub, which runs every-time when user launch the program.
Sub visualMethod()
With ws
.Range(.Cells(4, 2), .Cells(22, 10)).Interior.ColorIndex = 0
.Range(.Cells(4, 2), .Cells(22, 10)).Font.Name = "Courier New"
.Range(.Cells(4, 2), .Cells(22, 10)).Font.Size = 12
.Range(.Cells(4, 2), .Cells(22, 10)).HorizontalAlignment = xlCenter
.Range(.Cells(4, 2), .Cells(22, 10)).Borders.Weight = xlThin
.Range(.Cells(4, 2), .Cells(22, 10)).NumberFormat = "0.00"
End With
End Sub