Sub tst()

Worksheets("Saved Records").Activate
For Each cell In Worksheets("Saved Records").Range("A2:A102")
If cell.Value = "name" Then
cell.EntireRow.Select
Selection.Copy
Worksheets("Temporary Record").Activate
Worksheets("Temporary Record").Range("B1:B223").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=True
'Worksheets("Saved Records").Activate
'cell.EntireRow.Delete
''''''''''Exit For
End If
Next

End Sub