Copy multiple Range from worksheet to another worksheet - vba

Question

I'm trying to copy multiple cells from one worksheet to another. I'm getting error message wrong number of arguments or invalid property assignment.
Range("D10:D12,D15,D22,D25,D32:D33,D38:D42,D47:D50,D53,D55,D57,D63").Select
Range("G3").Select
Selection.Copy
Sheets("Sheet3").Select
'Range("I4").End(xlUp).Select
lMaxRows = Cells(Rows.Count, "I", "AD").End(xlUp).Row
Range("I", "AD" & lMaxRows + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("Sheet1").Select
Range("I4", "AD").Select
Hoping for your help.
i tried using union but cannot come up with a solution. Here is the codes I have now
Dim r1 As Range, r2 As Range, multiRange As Range
Set r1 = Sheets("Sheet1").Range("D10:D12,D15,D22,D25,D32:D33,D38:D42,D47:D50,D53,D55,D57,D63")
Set r2 = Sheets("Sheet1").Range("G3")
Set multiRange = Union(r1, r2)
Application.Union(r1, r2).Select
Selection.Copy
Sheets("Sheet3").Select
'Range("I4").End(xlUp).Select
lMaxRows = Cells(Rows.Count, "I").End(xlUp).Row
Range("I" & lMaxRows + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("Sheet1").Select
Range("I4").Select
THE error message I'm know getting is That command cannot be used on multiple selections.
The Highlighted code is SELECTION.COPY

Answer 1

The code below assumes that Sheets("Sheet1") has sheet CodeName "Sheet1", and similar for Sheet3. (In general you should use sheet CodeName in your code).
Dim SourceArea As Range
Dim TargetArea As Range
Dim CopyRange As Range
Set CopyRange = Sheet1.Range("D10:D12,D15,D22,D25,D32:D33,D38:D42,D47:D50,D53,D55,D57,D63")
For Each SourceArea In CopyRange.Areas
Set TargetArea = Sheet3.Range(SourceArea.Address)
TargetArea.Value = SourceArea.Value
Next
Edit: The above will paste in Sheet3 in exactly the same locations as the ranges in Sheet1. If you want to paste to a different location, use Offset. For example if you want the top left cell in the target to be I20, then:
Set TargetArea = Sheet3.Range(SourceArea.Address).Offset(10,5)