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