Select Destination And Press Enter Or Choose Paste

Private Sub cmdDerivation_Click()
Static iClicks As Boolean

'Stop screen flickering
Application.ScreenUpdating = False

  iClicks = Not iClicks

  Select Case iClicks
      Case True
          'First Click
          Columns("K:Q").Select
          Range("K10").Activate
          Selection.EntireColumn.Hidden = True
          Range("A1").Select
          Range("A1:J41").Select
          ActiveSheet.PageSetup.PrintArea = "$A$1:$J$41"
          Range("A1").Select
     Case False
          'Second Click
          Columns("J:R").Select
          Selection.EntireColumn.Hidden = False
          Range("A1").Select
          Range("A1:Q41").Select
          ActiveSheet.PageSetup.PrintArea = "$A$1:$Q$41"
          Range("A1").Select
  End Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

'Stop screen flickering
Application.ScreenUpdating = False


'Force uppercase input
On Error Resume Next
If Not (Application.Intersect(Target, Range("E6:I6")) Is Nothing) Then
    With Target
        If Not .HasFormula Then
            .Value = UCase(.Value)
        End If
    End With
End If
On Error Resume Next
If Not (Application.Intersect(Target, Range("E13:Q29")) Is Nothing) Then
    With Target
        If Not .HasFormula Then
            .Value = UCase(.Value)
        End If
    End With
End If

On Error Resume Next
If Not (Application.Intersect(Target, Range("C13:D29")) Is Nothing) Then
    With Target
        If Not .HasFormula Then
            .Value = Format(Round(.Value, 2), "#,###.##")
        End If
    End With
End If

End Sub