Use o:
DateValue(Variavel)
ele ira resolver seus problemas de data invertida.
Exemplo:
Dim DataAtual as String
DataAtual = "10/08/2018"
ActiveCell.Value = DateValue(DataAtual)
Seu código está correto.
No entanto, você colocou o seguinte trecho de forma errada:
wIr.Rows("9:Linhas").EntireRow.Hidden = True
O certo seria:
wIr.Rows("9:" & Linhas).EntireRow.Hidden = True
Talvez a planilha esteja bloqueada (Como disse o Alysson), ou ele não encontrou a planilha, ou o nome da mesma está errado (Mesmo que por uma virgula - a grosso modo). Mais é bom compartilhar um exemplo, ajuda na hora de ajudar.