Удаление нулевых элементов в одномерном массиве в VBA Excel

Из одномерного массива A(n) удалить все нулевые элементы, сдвинув на их место следующие, без нарушения порядка их следования! В итоге должен получиться массив с меньшим количеством элементов. Подскажите пожалуйста как это сделать???