I still need help please!!!!

Hello Dave,

What I am trying to do is enter Patient Info on a sheet called Patient Info from cells b3..b17. Then I am copying that record and pasting it in another sheet called Patient Names. I want to be able to find the last blank row and insert the new record there.

Thanks again for your help,

Kurt

Here is your idea from the last messages. I posted my old code there on the second or third message up.

Kurt

Kut, you could shorten the first bit to:
'This code copies the patient data
Sheets("Patient Info").Range("B3:B17").Copy
Sheets("Patient Names").Range("A2").PasteSpecial Transpose:=True
Application.CutCopyMode = False

The rest though you will have to tell me what it is you want to do as i cannot tell from looking at it. E.G; you have:

LastCell = Sheet1.Range("O65536").End(xlUp).Offset(1, 0).Row
Sheet1.Range("A" & LastCell) = "NewRecord"

Range("A" & LastCell).Offset(0, 1).Select
For i = Selection.Rows.Count To 1 Step 1

If WorksheetFunction.CountA(Selection.Rows(i)) = 0 Then
ActiveCell.Select
Selection.Rows(i).EntireRow.Delete
End If
Next i

Which is trying to loop through 1 cell in Column B

Dave