Copy rows from a master sheet to new sheets based on column values, but losing cell size

Hello,
I am using VBA to copy rows from a master worksheet to other worksheets based on a column value/name. I am unable to keep the source column and row width though. Below is an example of one of the 30 modules.

Sub Move_FLJAC()

Dim i As Range
For Each i In Range("B1:B2000")
If i.Value = "FLJAC" Then
i.Select
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Copy
Sheets("FLJAC").Range("A65000").End(xlUp).Offset(1, 0).PasteSpecial
End If
Next i
End Sub

Try this:

Please Login or Register  to view this content.

This resulted in the same, non-original, format. What is meant by adding code tags?

Sub Move_FLJAC()

Dim i As Range
For Each i In Range("B1:B2000")
If i.Value = "FLJAC" Then
i.Select
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Copy
Sheets("FLJAC").Range("A65000").End(xlUp).Offset(1, 0).PasteSpecial
End If
Next i
End Sub

Please Login or Register  to view this content.

Submit your workbook, or an example workbook, which clearshows a before and after.

Copy attached. I limited the date to two locations in column B and all modules are loaded.