Прошу помощи с импортом данных

[IgorGO]

DimST,
так нельзя!

хорошо что Вы выучили все буквы и умеете состовлять из них слова и предложения... но ответ на Ваш вопрос уже опубликован выше ( как знал, назвал процедуру прошлый раз Import1)

Sub Import2()
  Cells(2, 1).Resize(ActiveSheet.UsedRange.Rows.Count, 3).ClearContents
  .Worksheets(1) ' сюда номер листа, с которого копировать или его имя в "кавычках" 
    .Cells(2, 1).Resize(.UsedRange.Rows.Count, 3).Copy Cells(2, 1)
  End With
End Sub

согласитесь, до этого можно было додуматься самостоятельно, нужно было только мысли из направления "у кого спросить, как это сделать?" направить в сторону "как я могу это сделать?"

[IgorGO]

забираю свои слова "взад".

разобрались сами - это правильное решение!