lguém poderia me ajudar com algum código VB

Estou tentando copiar 2 intervalos de células entre as pastas de trabalho (ambas as pastas de trabalho devem ser criadas previamente, pois não quero que o código crie uma nova pasta de trabalho em tempo real

Primeiro preciso copiar esses intervalos - Da 'Planilha 3' do booka.xls, Intervalo: Célula H5 até a última linha da coluna H com dados copia isso para a 'Planilha 1' do bookb.xls, iniciando na Célula B2 por muitas células na coluna B

Segundo: preciso copiar esses intervalos - Da 'Planilha 3' do booka.xls, Intervalo: Célula K5 até a última linha da coluna K com dados copia isso para a 'Planilha 1' do bookb.xls, iniciando na Célula D2 por muitas células na coluna D

Aqui está o que eu tenho até agora:

 Sub CopyDataBetweenBooks()

Dim iRow        As Long
    Dim wksFr       As Worksheet
    Dim wksTo       As Worksheet

    wksFr = "C:\booka.xls"
    wksTo = "C:\bookb.xls"

    Set wksFrom = Workbooks(wksFr).Worksheets("Sheet 3")
    Set wksTo = Workbooks(wksTo).Worksheets("Sheet 1")

    With wksFrom
        For iRow = 1 To 100
            .Range(.Cells(iRow, 8), .Cells(iRow, 9)).Copy wksTo.Cells(iRow, 8)
        Next iRow
    End With

End Sub