No tengo conocimiento en macros

Resulta que estoy elaborando una macro de plantilla, para poner datos; sin embargo no me permite incluir una fila y en orden hacia abajo de acuerdo al ruc. Esto es lo que me aparece en la macro.

Si alguien me puede ayudar especificando paso a paso, ya que como manifesté no tengo conocimiento en macros.

Sub REGISTRO()
'
' REGISTRO Macro
'

'
Range("E3:E14").Select
Selection.Copy
Sheets("Hoja2").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("A2:G32").Select
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Hoja2").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Hoja2").Sort.SortFields.Add Key:=Range("A3:A22"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Hoja2").Sort
.SetRange Range("A2:G22")
.Header = xlYes
.MatchCase = True
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Sheets("Hoja1").Select
Range("E3:E14").Select
Selection.ClearContents
End Sub