Vba to copy range from Sheet to another and define a name

[PERSL]

Good day all

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
Define range (1).jpg

[Aussiebear]

Welcome to VBAX PERSL. This sounds very much like a homework question.....

[PERSL]

Welcome to VBAX PERSL. This sounds very much like a homework question.....

I need the code badly for my self

[jdelano]

Here are a few links that should help you achieve what you want.
How to Copy and Paste in Excel Using VBA (12 Methods) - ExcelDemy
How to Use HLOOKUP in VBA (With Examples) - Statology
Excel VBA Create Named Range: Step-by-Step Guide and 4 Examples (powerspreadsheets.com)

[p45cal]

Here's another link which should help you achieve what you want; your cross post at Eileen's Lounge: http://www.eileenslounge.com/viewtopic.php?f=27&t=40213