Paste from one sheet to last blank cell of a column

Hi,

I've seen solutions to this but can't quite work out how to get mine to work just as I wish. Basically I need a macro to copy a range from one sheet to another, but the checking for an empty row in column B (before pasting) should start from B6 (as there are blank cells above that need to remain blank). Unfortunately I can't get it to work properly. The offset works the once, but then each subsequent paste leaves another 3 blank lines before pasting the info across. Any help appreciated!

The code I have is as follows:

Sub CopyAndPaste()
Sheets("Absences_List").Select
Range("A2:T200").Select
Selection.Copy

Sheets("Absences_Details").Select
Range("B" & ActiveSheet.Rows.Count). _
End(xlUp).Offset(3, 0).Select
ActiveSheet.Paste
Range("B" & ActiveSheet.Rows.Count). _
End(xlUp).Offset(3, 0).Select
'Sheets("Status_Change").Select
'Range("B6:M200").Select
'Selection.ClearContents
'[B6].Select
Application.CutCopyMode = False
End Sub