Good day I need a vba code to do the following comands: 1 - copy range ("GT300") and ("GV300", Selection.End(xlToRight)) from ("Sheet1") 2 - H lookup ("Sheet1

Good day I need a vba code to do the following comands: 1 - copy range ("GT300") and ("GV300", Selection.End(xlToRight)) from ("Sheet1") 2 - H lookup ("Sheet1") ("GT291") on ("Sheet2").Range("B:B") 3 - Add the copied ranges from ("Sheet1") as new entery on ("Sheet2") based on the H lookup result 4 - Create new defined name from ("Sheet2") last entery from column D to last value on same row , Selection.CreateNames Top:=False, Left:=True, Bottom:=False, Right:=False