【質問１】

独立した質問かと思ったら、全部関連したものだったのですね。

とりあえずQ1から追って回答します。

'----------------------------------------------------------------------------
Sub pinkoQ1()
'----------------------------------------------------------------------------
' マイドキュメント\cccc\bbbb.csv の２行目以降を aaaa.xls のSheet1 へコピー
'----------------------------------------------------------------------------
 Dim Path As String, WSH As Variant
    Set WSH = CreateObject("WScript.Shell")
    
    Path = WSH.SpecialFolders("MyDocuments") & "\cccc\aaaa.xls"
    Dim dstWB As Workbook
    Set dstWB = Workbooks.Open(Path)
    
    Path = WSH.SpecialFolders("MyDocuments") & "\cccc\bbbb.csv"
    Dim srcWB As Workbook
    Set srcWB = Workbooks.Open(Path)
        
    Dim lastRow As Long
    lastRow = srcWB.Worksheets(1).Range("A" & Rows.Count).End(xlUp).Row
    
    srcWB.Worksheets(1).Range("A2").Resize(21, lastRow - 1).Copy _
        Destination:=dstWB.Worksheets("Sheet1").Range("A2").Resize(21, lastRow - 1)
    srcWB.Close
End Sub