Blank Cells Between Data In Same Row

I have a little problem here. I have my macro, and my save button in form5. I manage to keep the other data (from other form), but when I use this save button for Form5, the details save in the same active row, but saved it starting in Column O, which it is suppose to save start from Column H.

The result shows something like below.

A B C D
21 Vanessa 540414101422 14-Apr-54

E F G H
24-May-12 10333 0129458856

H I J K L

M N O P Q
Yes W G
R S
122 T

Here is my code:

Code:

Private Sub save_Click()
ActiveWorkbook.Sheets("PATIENT").Activate
Range("A2").Select

Call lastCell

ActiveCell.Offset(0, 7) = p.Value
ActiveCell.Offset(0, 8) = km.Value
ActiveCell.Offset(0, 9) = kp.Value
ActiveCell.Offset(0, 10) = KKEP.Value
ActiveCell.Offset(0, 11) = KKO.Value
End Sub

Here is my macro:

Code:

Sub lastCell()
Selection.Copy
Sheets("PATIENT").Cells(Rows.Count, "H").End(xlUp).Offset(1).Select 'PasteSpecial 'xlPasteValues
Application.CutCopyMode = False
ActiveWorkbook.Save
End Sub