CopyMultipleDiscreteCells.vba

Sub CopyMultipleDiscreteCells()
'
' Copy multiple dicrete cells
'

'
Dim i As Long
For i = 1 To 9
    Selection.Copy
    ActiveCell.Offset(10, 0).Select
    ActiveSheet.Paste
Next i
    
End Sub

SelectDiscreteCells.vba

Sub SelectDiscreteCells()
'
' Select discrete cells
'

Dim range
Set range = Selection
Dim i As Long
For i = 1 To 9
    ActiveCell.Offset(10, 0).Select
    Set range = Union(range, Selection)
Next i
range.Select
End Sub