If I understand your logic, Column D (FY2010/Q4) data should be copied to M (4Q2010), and E to N.
[vba]Option Explicit

Sub CopyColumnWithMatchingYearQuarter()
'http://www.vbaexpress.com/forum/showthread.php?p=219029&mode=linear#post219029
Dim wb As Workbook
Dim ws As Worksheet
Dim aCell As Range
Dim FirstAddress As String
Dim LastRow As Long
Dim C As Range
Dim A As Long

'Cycle through each Heading in Range.
For Each aCell In Sheets(1).Range("J4:N4")
'Using each one of the range,
'search for matching year.
With Worksheets(1).Range("D4:H4")
Set C = .Find(Right(aCell, 4), LookIn:=xlValues)
If Not C Is Nothing Then
'Found match, now compare the quarter.
FirstAddress = C.Address
Do
If C.Offset(1, 0) = StrReverse(Left(aCell, 2)) Then
'At the point, the Year and Quarter match,
'copy column contents down.
'Last Row in found range.
LastRow = Worksheets(1).Cells(65536, C.Column).End(xlUp).Row
'Copy Column
With Worksheets(1)
.Range(.Cells(aCell.Row + 2, aCell.Column), aCell(LastRow - 3, 1)) = _
.Range(.Cells(C.Row + 2, C.Column), .Cells(LastRow, C.Column)).Value
End With
End If
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> FirstAddress
End If
End With
Next
End Sub[/vba]