VBA- procedury

Witam mam pewien problem z VBA a mianowicie muszę zrobić następujące zadania:

1. Napisz program, który wszystkie zaznaczone komórki zamieni na wartości tekstowe.
2. Napisz procedurę, która przepisze wartości z komórek od A1 do A20 w odwrotnej kolejności do komórek B1 do B20.

Muszę w wordzie wkleić te kody i zrobić screeny i kroki działania.
Jeśli trzeba będzie zapłace

Sub odwracanie()
    Dim i As Integer, kom As String   
         For i = 1 To 20    
            kom = Cells(i, 1).Value
               Cells(i, 2) = StrReverse(kom)
                 Cells(i, 1).Clear
          Next i
End Sub

Sub zaznaczenie()

'skopiowane z Walkenbacha

Dim UserRange As Range, prompt As String, title As String

	prompt = "Zaznacz wybrany zakres komórek."
		title = "Wybieranie zakresu komórek"

	On Error Resume Next

	Set UserRange = application.InputBox( _
	prompt:=prompt, title:=title, _
	Default:=ActiveCell.Address, _
	Type:=8)

	On Error GoTo 0

If UserRange Is Nothing Then
MsgBox "Operacja anulowana."
Else
UserRange.NumberFormat = "@"
End If

End Sub