Seria o caso de você adicionar um loop a rotina de execução e depois ir alterando o código a cada laço finalizado
Ficaria algo assim eu acho
(Não testado)

For i = 2 To 1000 'Executa o loop em todas as linhas da planilha Cod_Barras
        Codigo = Sheets("Cod_Barras").Range("A" & i) 'Adiciona a variavel o código de barras da coluna A
        $url = "'https://cosmos.bluesoft.com.br/api/gtins/" & Codigo & ".json';"
        $headers = array(
        "Content-Type: application/json",
        "X-Cosmos-Token: UV7UqfKs2XwB64xsngVjsA"
        );

        $curl = curl_init();
        curl_setopt($curl, CURLOPT_URL, $url);
        curl_setopt($curl, CURLOPT_HTTPHEADER, $headers);
        curl_setopt($curl, CURLOPT_SSL_VERIFYPEER, false);
        curl_setopt($curl, CURLOPT_RETURNTRANSFER, true);

        $data = curl_exec($curl);
        curl_close($curl);

        $array = json_decode($data);
        var_dump($array);

Next