InputBox - kopieren

Sub Kopieren()
Dim rngSelect As Range
Dim msgTitel As String
msgTitel = "Zellbereich markieren!"
On Error Resume Next
Set rngSelect = Application.InputBox _
(Prompt:="Bitte einen Zellbereich auf dem Tabellenblatt " & _
"markieren..." & vbCrLf & vbCrLf & "Um mehrere Bereiche " & _
"zu markieren, halten Sie die Strg-Taste gedrückt und  " & _
"markieren Sie den nächsten Bereich.", _
Title:=msgTitel, Type:=8)
rngSelect.Copy
Sheets(2).Select
ActiveSheet.Paste
End Sub

Zusammenhängende Zellen/Zeilen funzen (z.B.: $A$2:$B$4; ...), aber auseinanderliegende Zellen aber nicht (z.B.: $A$2; $A$5; $C$3; $C$6)
Why?
Jack