VBA Excel копировать вставить 1 столбец в 1 столбец

Question

Sub ListCOMAddins()
Dim lngRow as Long, objCOMAddin As COMAddIn
lngRow = 1
With Activesheet
  For Each objCOMAddin In Application.COMAddIns
     .Cells(lngRow, "A").Value = objCOMAddin.Description
     .Cells(lngRow, "B").Value = objCOMAddin.Connect
     .Cells(lngRow, "C").Value = objCOMAddin.progID
     lngRow = lngRow + 1
  Next objCOMAddin
End With
End Sub

попробуйте приведенный выше код в Excel vba

image

, как заставить этот код работать, скопируйте и вставьте в колонку F: H к C: D. с той же функцией?