activecell.paste error

[agus setiawan]

hey i just try to learn excel more deep and it fun, i make my own data for my little store but i got trouble in this coding

Sub SimpanData()

Sheets("TRANSAKSI KASIR").Select
Range("C8:L8").Offset(1, 0).Select                    
If Range("E6") = 1 Then                           
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select

Else
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
End If
Selection.Copy


ThisWorkbook.Worksheets("DAFTAR TRANSAKSI").Visible = xlSheetVisible
Worksheets("DAFTAR TRANSAKSI").Unprotect Password:="1234"
Sheets("DAFTAR TRANSAKSI").Select
If Range("B3").Offset(1, 0).Value = "" Then        
Range("B3").Offset(1, 0).Select
Else
Range("B3").End(xlDown).Offset(1, 0).Select
End If


ActiveCell.PasteSpecial            >>>>>> this the trouble maker


    Application.CutCopyMode = False
Worksheets("DAFTAR TRANSAKSI").Protect Password:="1234", UserInterfaceOnly:=True
ThisWorkbook.Worksheets("DAFTAR TRANSAKSI").Visible = xlSheetHidden

End Sub

 

[RoryA]

What is the error?

 

[agus setiawan]

iam not sure, because when i run it the "activecell paste special" make an error / debug

 

[mohadin]

Activecell.PasteSpecial ...

Should be

Selection.PasteSpecial ...

 

[RoryA]

If it 'makes an error', you must know what the error message is.

 

[mohadin]

OOPs
Wrong destination

 

[agus setiawan]

i try it it only working 1 time i try it again its still debug

 

[mohadin]

Example

Selection.PasteSpecial Paste:=xlPasteValues