Подскажите код макроса для переноса значений ячеек из одного листа в другой - VBA

Формулировка задачи:

Ребята подскажите макрос который может к примеру переносить значения из ячеек A1,F3,H7 Листа4 ,в ячейки Листа1 по принципу что значение ячейки из A1 в J3. из F3 в A5.из H7 в X6... Запуск должен с Листа1.и код можно было редактировать для возможности добавлять новые ячейки.

Решение задачи: «Подскажите код макроса для переноса значений ячеек из одного листа в другой»

textual
                            Листинг программы 
                        

                            Sub Макрос1()
 
Sheets("Лист1").Range("J3") = Sheets("Лист4").Range("A1")
Sheets("Лист1").Range("A5") = Sheets("Лист4").Range("F3")
Sheets("Лист1").Range("X6") = Sheets("Лист4").Range("H7")
Sheets("Лист4").Range("A1").ClearContents
Sheets("Лист4").Range("F3").ClearContents
Sheets("Лист4").Range("H7").ClearContents
End Sub
                        