Public Sub ProcessData()
Dim i As Long
Dim iLastRow As Long
Dim iRow As Long
Dim iCol As Long
Dim sh As Worksheet

   With ActiveSheet

       iLastRow = .Cells(.Rows.Count, "C").End(xlUp).Row
       Set sh = Worksheets("Sheet2")
       sh.Range("A1:G1").Value = Array( _
           "Prj no.", "Project name", "Euro", "RP", "SGD", "USD", "Yen")
       iRow = 1
       For i = 2 To iLastRow
           If .Cells(i, "A").Value <> "" Then
               iRow = iRow + 1
               sh.Cells(iRow, "A").Value = .Cells(i, "A").Value
               sh.Cells(iRow, "B").Value = .Cells(i, "B").Value
           End If
           iCol = Application.Match(.Cells(i, "C").Value, sh.Rows(1), 0)
           sh.Cells(iRow, iCol).Value = .Cells(i, "D").Value
       Next i
   End With

End Sub

This code should work.  It will copy data from sheet1 and place it in sheet
2.  Enter in sheet 2 the header row from your posting.  Put all the
currencies in this header row, not just the ones from your example.  the code
searches this header row to find the correct column to place the amounts.

Add to sheet 2 row 1
Prj no.   Project name       Euro      Rp.        SGD      USD    Yen

Sub FixCurrencies()

'Get Range of currencies on Sheet2
With Sheets("Sheet2")
  LastColumn = .Cells(1, Columns.Count). _
     End(xlToLeft).Column
  Set CurrRange = .Range(.Cells(1, "C"), _
     .Cells(1, LastColumn))
End With

With Sheets("Sheet1")
  'get last row
  LastRow = 0
  For ColumnCount = 1 To 7
     Last = .Cells(Rows.Count, ColumnCount). _
        End(xlUp).Row
     If Last > LastRow Then LastRow = Last
  Next ColumnCount

  'Get each row of original sheet
  Sh2RowCount = 1
  For Sh1RowCount = 1 To LastRow
     If Not IsEmpty(.Cells(Sh1RowCount, "A")) Then
        Sh2RowCount = Sh2RowCount + 1
        'copy project info to new worksheet
        Sheets("Sheet2").Cells(Sh2RowCount, "A") = _
           .Cells(Sh1RowCount, "A")
        Sheets("Sheet2").Cells(Sh2RowCount, "B") = _
           .Cells(Sh1RowCount, "B")
        StartCol = 3
     Else
        StartCol = 1
     End If
     
     'find next column with data
     Do While StartCol <= Columns.Count
        If Not IsEmpty _
           (.Cells(Sh1RowCount, StartCol)) Then
           
           Exit Do
        End If
        StartCol = StartCol + 1
     Loop
     
     'skip rows with no data
     If StartCol <= Columns.Count Then
        Set c = CurrRange.Find _
           (what:=.Cells(Sh1RowCount, StartCol), _
            LookIn:=xlValues)
        If Not c Is Nothing Then
           'find next column with data
           StartCol = StartCol + 1
           Do While IsEmpty _
              (.Cells(Sh1RowCount, StartCol)) And _
              StartCol <= Columns.Count
             
              StartCol = StartCol + 1
           Loop
                   
           Sheets("Sheet2"). _
              Cells(Sh2RowCount, c.Column) = _
              .Cells(Sh1RowCount, StartCol)
        Else
           MsgBox ("Missing Currnecy : " & _
              .Cells(Sh1RowCount, StartCol))
           
        End If
     End If
  Next Sh1RowCount
End With

End Sub