Ayuda con una condicion de un macro.

Estimado necesito de su ayuda de nuevo con el este macro.

Necesito que cumpla con esta condición que adjunto en el pantallazo:

http://dl.dropbox.com/u/31683777/Condicion%20fila%201%20y%202.PNG

Son 2 macros, uno con la información de MI y otro con XT ( yo tengo 2 macros, uno que me sacaba los datos de la columna A y el otro de la columna B. Es lo mismo solo que ahora cuando tome los datos de columna A, solo enviara a la hoja2 los que tengan debajo la palabra MI, y cuando tome los datos de la columna B, solo enviara a la hoja los datos que tengan la palabra XT.

En el link sale graficamente lo habria que modificar.

Este es el codigo anterior que relizaste que toma los datos de la columna A:

Sub creaplanilla_MI()
'copia datos a otra hoja
'Por Dam
Set hactual = Sheets("Hoja1")
Set hdest = Sheets("Hoja2")
hactual.Select
ufila = Range("A" & Rows.Count).End(xlUp).Row
ucol = ActiveCell.SpecialCells(xlLastCell).Column
hdest.Columns("C").NumberFormat = "mm/yyyy"
j = 1
For k = 34 To ucol
If IsNumeric(hactual.Cells(1, k)) And hactual.Cells(1, k) <> "" Then
For i = 7 To ufila
If Cells(i, 1) <> "" Then
hdest.Cells(j, 1) = "'"&hactual.Cells(1, k)
hdest.Cells(j, 2) = "'"&hactual.Cells(i, 1)
hdest.Cells(j, 3) = "'"&Format("11/2012", "mm/yyyy") 'fecha"
If hactual.Cells(i, k) = "" _
Or Not IsNumeric(hactual.Cells(i, k)) Then
hdest.Cells(j, 4) = 0
Else
hdest.Cells(j, 4) = hactual.Cells(i, k) * 1000
End If
j = j + 1
End If
Next
End If
Next
MsgBox ("**Se ha creado la HOJA2**")
End Sub

ESTE ES EL CODIGO QUE TOMA LOS DATOS DE LA COLUMNA B:

Sub creaplanilla_XT()
'copia datos a otra hoja
'Por Dam
Set hactual = Sheets("Hoja1")
Set hdest = Sheets("Hoja2")
hactual.Select
ufila = Range("A" & Rows.Count).End(xlUp).Row
ucol = ActiveCell.SpecialCells(xlLastCell).Column
hdest.Columns("C").NumberFormat = "mm/yyyy"
j = 1
For k = 34 To ucol
If IsNumeric(hactual.Cells(1, k)) And hactual.Cells(1, k) <> "" Then
For i = 7 To ufila
If Cells(i, 1) <> "" Then
hdest.Cells(j, 1) = "'"&hactual.Cells(1, k)
hdest.Cells(j, 2) = "'"&hactual.Cells(i, 2)
hdest.Cells(j, 3) = "'"&Format("11/2012", "mm/yyyy") 'fecha"
If hactual.Cells(i, k) = "" _
Or Not IsNumeric(hactual.Cells(i, k)) Then
hdest.Cells(j, 4) = 0
Else
hdest.Cells(j, 4) = hactual.Cells(i, k) * 1000
End If
j = j + 1
End If
Next
End If
Next
MsgBox ("**Se ha creado la HOJA2**")
End Sub

SALUDOS DAM.