Delphi World - Взять значения ячеек указанной записи в Excel макросом

Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...

Взять значения ячеек указанной записи в Excel макросом

Private Sub Button1_Click()
Dim sMonth As String
  sMonth = Range("G1").Value
  
  Worksheets("Счет").Range("F13").Value = Selection.Value 'Название
  Worksheets("Счет").Range("F14").Value = Selection.Offset(0, 7).Value 'РНН
  Worksheets("Счет").Range("I14").Value = Selection.Offset(0, 8).Value 'Адрес
  Worksheets("Счет").Range("F15").Value = Selection.Offset(0, 6).Value 'Р/с
  Worksheets("Счет").Range("H17").Value = sMonth 'Месяц
  
  Worksheets("Счет").Range("B21").Value = Selection.Offset(0, 10).Value 'Сальдо вх.
  Worksheets("Счет").Range("C21").Value = Selection.Offset(0, 43).Value 'Нач. м3 вода
  Worksheets("Счет").Range("D21").Value = Selection.Offset(0, 44).Value 'Нач. м3 кан
  Worksheets("Счет").Range("E21").Value = Selection.Offset(0, 45).Value 'Цена без НДС вода
  Worksheets("Счет").Range("F21").Value = Selection.Offset(0, 46).Value 'Цена без НДС кан
  Worksheets("Счет").Range("G21").Value = Selection.Offset(0, 49).Value 'Нач без НДС, тг
  Worksheets("Счет").Range("H21").Value = Selection.Offset(0, 50).Value 'НДС, %
  Worksheets("Счет").Range("I21").Value = Selection.Offset(0, 51).Value 'НДС, тг
  Worksheets("Счет").Range("J21").Value = Selection.Offset(0, 52).Value 'Нач c НДС, тг
  
  Worksheets("Счет").Range("G2").Value = Worksheets("Счет").Range("G2").Value + 1
  Worksheets("Счет").Range("I2").Value = Date
  
  Worksheets("Счет").Activate
End Sub