Inserting rows when reading off another spreadsheet (kinda)

[Naldo]

Hi there

I'm trying to make a spreadsheet, which reads other spreadsheets and displays info accordingly.

I'm stuck though. I read off one spreadsheet where I find the col required (row 1) then wish to display fields where a date exists.

iLastRow = .Range("A1").Sp ecialCells(xlCe llTypeLastCell) .Row

strCol = Chr(64 + c.Column)
For iRow = 2 To iLastRow
If IsDate(.Range(s trCol & iRow).Value) Then

display on my new worksheet.

however, my problem is after this, I think I need to add something like

moWorksheet.Row s("32:32").Sele ct
Selection.Inser t Shift:=xlDown

but no joy, it'll read all the correct rows, but only displays the last row instead of all rows.......

If you can dephiper that, then please help!!!!

thanks in advance!