Ну да, там очень сложно
Если бы не надо было искать значения, то там даже в коде есть пояснения, где надо в ячейках значения подменять:
'Запишем на первый лист книги в ячейку А1 - www.excel-vba.ru
ActiveWorkbook.Sheets(1).Range("A1").Value = "www.excel-vba.ru"
Во вложении файл с готовым кодом.
Но учтите - готовые коды Вам не всегда будут накидывать, как только попросите. Если приходится работать с VBA - советую учиться и потихоньку его осваивать.