Toto makro (platí pro řádky 1-100 a sloupce 1-3):

Sub makro()
poc = 0
    For i = 1 To 100
        If Cells(i, 3).Value = "převod" Then
            'cteni ze sloupcu 1-3
            sloup1 = Cells(i, 1)
            sloup2 = Cells(i, 2)
            sloup3 = Cells(i, 3)
            'zapis do sloupcu 4-6
            Cells(1 + poc, 4) = sloup1
            Cells(1 + poc, 5) = sloup2
            Cells(1 + poc, 6) = sloup3
            poc = poc + 1
        End If
    Next i
End Sub

Nejjednodušší bude, když si na makro vytvoříš klikací tlačítko.

Je to jednoduchý cyklus. Začínáš na řádku 1, kontroluješ, zda v třetím sloupci je napsáno "převod" (bez uvozovek). Pokud ano, přečtou se hodnoty daného řádku ze sloupců A,B,C a napíšou na první volné řádky sloupců D,E,F. Pokud tam "převod" není, zvýší se řádek o jedna ("najede se na další řádek") a opět probíhá kontrola na slovo "převod". Na řádku 100 makro končí.