Sub Macro1()
Dim temp As String
Application.ScreenUpdating = False
Range("A4").ShowDetail = True
temp = ActiveSheet.Name
Columns("A:A").Copy
Sheets("tcd").Select
Range("K1").Select
ActiveSheet.Paste
Application.DisplayAlerts = False
Sheets(temp).Delete
Application.DisplayAlerts = True
End Sub