How to repeat an instruction instead of copying it hundreds of times?

[Hellion]

Hello guys. My name is Ricardo and I'm totally new to VB.
I'm trying to convert a cross tab into a flat list like this:

From:
CC   Salary   Fuel    Phone    Vehicle    Petty    
1      1000    50        10          0       70
2      1500    60        15        180        0    
3      3000    70        20          0      100

To:
CC     Nature     Amount
1      Salary     1000
2      Salary     1500
3      Salary     3000
1      Fuel         50
2      Fuel         60
3      Fuel         70
1      Phone        10
2      Phone        15
3      Phone        20  
2      Vehicle     180
1      Petty        70
3      Petty       100

As I have 140 Cost Centres and 6 Natures I have 840 repetitions and then excluding the zeros.

My basic skills only allow me to write it manually such as:

Sub AEGA()

    Sheets("CC GA").Select
    Range("D7").Select
    Selection.Copy
    Sheets("Accounts Export").Select
    Range("C9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("CC GA").Select
    Range("E6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Accounts Export").Select
    Range("D9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("CC GA").Select
    Range("E7").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Accounts Export").Select
    Range("E9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    Sheets("CC GA").Select
    Range("D8").Select
    Selection.Copy
    Sheets("Accounts Export").Select
    Range("C10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("CC GA").Select
    Range("E6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Accounts Export").Select
    Range("D10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("CC GA").Select
    Range("E8").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Accounts Export").Select
    Range("E10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

and so on.

How can I make it more automatic, please?

Thank you in advance.

Ricardo