Missed the "Values only".

Replace

copyRange.Copy Destination:= _
.Range("BW3").End(xlDown).Offset(1, 0)


with

.Range("BW3").End(xlDown).Offset( _
1, 0).Resize(1, 20).Value =
copyRange.Value

In article
,
"J.E. McGimpsey" wrote:

I think this will do what you're looking for:


Public Sub aaarrrggghhhh()
Dim copyRange As Range
Dim sheetNumber As Long
Dim rightSheet As Long
Dim idNumber As String

With Sheets("Live History")
Set copyRange = .Range("A1").End(xlDown).Resize(1, 20)
idNumber = .Range("N1").End(xlDown).Offset(0, 5).Value
rightSheet = .Range("H1").End(xlDown).Value
End With
For sheetNumber = 1 To 5
With Sheets("S" & sheetNumber)
If .Cells(3, 2).Value = rightSheet Then _
copyRange.Copy Destination:= _
.Range("BW3").End(xlDown).Offset(1, 0)
End With
Next sheetNumber
End Sub