Try this code
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("A:A")) Is Nothing Then
    If Range("A" & Target.Row).Value = "Closed" Then
        Target.EntireRow.Copy Worksheets("Completed").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
        Target.EntireRow.Delete
    End If
End If
End Sub
Right click on the Dashboard sheet and select View Code. Copy this code over. Each time you type "Closed" in column A, it will move the row.